Как я могу скопировать и вставить слайды как изображение в 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

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

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

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