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

Question

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

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

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

Я хочу знать, как вставить слайд как «картину». («Вставка как изображение» - это вариант вставки Special [например, вставка как png, jpeg ...])

Есть ли предложения о том, как это сделать?

Answer 1

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

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

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