Как скопировать и вставить диаграмму Excel в Word, используя VBA?

Question

Я хочу скопировать диаграммы Excel в Word, используя VBA.

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

Я установил закладку в середине страницыно VBA просто вставляет график в левое поле.Макро-рекордер Word не генерирует полезный код для этой операции.

У меня нет опыта работы с VBA в Word.Кто-нибудь может помочь?

Я испробовал множество вариантов, приведенный ниже работает для первого графика

'The first chart copies OK to Bookmark "Change"

ws.ChartObjects(1).Copy
doc.Bookmarks("Change").Range.PasteSpecial _
    Link:=False, _
    DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdFloatOverText, _
    DisplayAsIcon:=False

Закладка DemandChange находится в середине страницы, вторая диаграмма вставляется сверхупервого графика (то есть левого поля).

ws.ChartObjects(2).Copy
doc.Bookmarks("DemandChange").Select
wd.Selection.PasteSpecial _
    Link:=False, _
    DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdFloatOverText, _
    DisplayAsIcon:=False

Answer 1

Проблема, с которой вы столкнулись, связана со свойством Placement.Вы установили его на wdFloatOverText, что означает, что он будет привязан к закладке, но не будет находиться рядом с ней.Чтобы расположить две диаграммы рядом, вам нужно, чтобы диаграмма была встроенной.

doc.Bookmarks("Change").Range.PasteSpecial _
    Link:=False, _
    DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdInline, _
    DisplayAsIcon:=False