Я создаю макрос, который преобразует документ Word 2007 в структурированную презентацию PowerPoint 2007.Я перебираю все параграфы документа и копирую их в новую презентацию.
Я могу просто скопировать и вставить абзацы в презентацию.Но мне также нужно иметь возможность копировать и вставлять изображения из документа Word в PowerPoint (и в правильном месте между абзацами).
Пока что я могу определить, является ли абзац изображением, посмотрев на атрибут стиля абзаца - он скажет «Рисунок».Но я не знаю, что делать оттуда.После просмотра в Интернете, похоже, я смогу сделать это:
paragraphFromDocument.Range.Copy
currentSlide.Shapes.Paste
Но, похоже, это не работает.Как скопировать изображение из Word в PowerPoint?
Спасибо
РЕДАКТИРОВАТЬ
Я также пробовал:
paragraphFromDocument.Range.CopyAsPicture
currentSlide.Shapes.PasteSpecial(ppPasteMetafilePicture)
и получите это сообщение об ошибке:
Shapes.PasteSpecial: Invalid Request.Буфер обмена пуст или содержит данные, которые не могут быть здесь размещены.
Но когда я использую эту команду CopyAsPicture, я могу открыть PowerPoint (с изображением, все еще находящимся в буфере обмена из макроса)и используйте специальную команду Вставить, чтобы вставить изображение в слайд.