¿Cómo puedo copiar y pegar diapositivas como una imagen en PowerPoint con VBA?

Question

Quiero cortar una diapositiva y pegarlo como una imagen en mismo archivo de presentación (ppt).

Yo sé que el trabajo siguiente código VBA para copiar y pegar en una sola diapositiva.

ActivePresentation.Slides(1).Copy   ''copy first slide into clipboard
ActivePresentation.Slides.Paste     ''paste above slide as a last slide

Lo que yo quiero saber es cómo pegar una diapositiva como una "imagen". ( 'Pegar como una imagen' es una opción de Pegado especial [pegar por ejemplo, como PNG, JPEG ...])

¿Hay alguna sugerencia de cómo hacer esto?

Answer 1

Sí, el código estaba bastante cerca. Aquí está un ejemplo de tomar Slide 1 y pegándolo como una imagen en la diapositiva 2.

ActivePresentation.Slides(1).Copy
ActivePresentation.Slides(2).Shapes.PasteSpecial ppPasteJPG

Se puede mirar hacia arriba PpPasteDataType para más formatos para pegar a.