如何使用 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