Comment puis-je copier et coller des diapositives comme une image dans PowerPoint en utilisant VBA?

Question

Je veux couper une diapositive et le coller comme une image dans la même dossier de présentation (format ppt).

Je sais que, après le travail de code VBA pour copier-coller dans une diapositive.

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

Ce que je veux savoir est comment coller une diapositive comme une « image ». ( « Coller comme une image » est une option de Collage spécial [coller par exemple au format PNG, JPEG ...])

Y a-t-il des suggestions sur la façon d'aller à ce sujet?

Answer 1

Oui, votre code était assez proche. Voici un exemple de prendre Slide 1 et de le coller comme une image dans la diapositive 2.

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

Vous pouvez consulter PpPasteDataType pour plus de formats pour coller.