如何使用 VBA 将 Excel 图表复制并粘贴到 Word？

Question

我希望使用 VBA 将 Excel 图表复制到 Word 中。

我使用书签来定位第一个图表，效果很好。 我希望将下一个图表与第一个图表放在一起（即在页面中间），但我找不到如何做到这一点。

我在页面中间设置了一个书签，但 VBA 只是将图表粘贴到左边距。 Word 宏记录器不会为此操作生成任何可用代码。

我没有在 Word 中使用 VBA 的经验。 任何人都可以帮忙吗？

我尝试了多种选择，下面的一个适用于第一个图表

'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

Bookmark 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