Come posso copiare e incollare diapositive come un'immagine in PowerPoint utilizzando VBA?

Question

voglio tagliare una diapositiva e incollarlo come immagine nella stessa file di presentazione (in formato ppt).

So che dopo il lavoro codice VBA per la copia e incolla in una singola diapositiva.

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

Quello che voglio sapere è come incollare una diapositiva come "immagine" a. ( 'Incollare come immagine' è un'opzione di Incolla speciale [ad esempio incolla come PNG, JPEG ...])

Ci sono dei suggerimenti su come andare su questo?

Answer 1

Si, il codice era abbastanza vicino. Ecco un esempio di prendere Slide 1 e incollarlo come immagine nella presentazione 2.

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

Si può cercare PpPasteDataType per più formati per incollare a.