¿Cómo usar VBA en PowerPoint para crear siempre una nueva diapositiva al final y pegar el contenido del portapapeles en la nueva diapositiva?
El código es el siguiente:
Sub? prueba()
¿Atenuado? ppt¿Diapositiva? ¿Como? Diapositivas
¿Atenuadas? pptDiseño? ¿Como? Diseño personalizado
¿Configuración? pptDiseño? =?Diapositiva de presentación activa(1). Diseño personalizado
¿Configuración? ppt¿Diapositiva? =?ActivePresentationslides.add slide(presentación activa.slides.count??1,?pptLayout)
Diapositiva ActivePresentation(presentación activa.slides.count). forma. Pasta.
¿Fin? Submarino