Как скопировать и вставить слайды в качестве изображения в PowerPoint с помощью VBA?

Question

Я хочу вырезать один слайд и вставить его как изображение в том же файле презентации (формат ppt).

Я знаю, что следующий код VBA работает для копирования & пасты в одном слайде.

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

Что я хочу знать, как вставить слайд как «картинку». («паста в качестве изображения» - это опция «Специальная паста» (например, паста в формате PNG, JPEG ...])

Есть ли предложения по поводу этого?

Answer 1

Да, ваш код был довольно близко. Вот пример с Slide 1 и вставить его в качестве картинки в слайд 2.

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

Вы можете посмотреть PpPasteDataType для большего количества форматов, чтобы вставить в.