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

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

我用书签来定位第一张图表，效果很好。我希望把下一个图表放在第一个表的旁边（也就是在页面的中间），我找不到该怎么做。< /P> 我在页面中间设置了一个书签，但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

书签>代码> DEDANDATION/<代码>位于页面的中间，第二张图粘贴在第一张图（即左边页边）的顶部。

---

您遇到的问题与Placement属性有关。您已将其设置为

wdFloatOverText

，这意味着它将被锚定到书签上，但不会坐在书签旁边。要并排放置两个图表，需要将图表内联

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

---

你能发布一张你想要如何订购这些图表的图片吗？非常感谢你回答我的问题。我会尝试你的建议，但同时我发现在Word文档中设置表格可以让我粘贴到表格中的特定单元格，并适当调整内联形状的大小。这非常适合我的需要。

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