將圖表 excel 復制到帶有 VBA 的特定段落單詞

Question

我有一個包含文本的 word 文件。 我有一個包含多個圖表的 Excel 文件。 我希望將這些圖表復制到特定段落中。 例如，第五段中的第一個圖表和第十段中的第二個圖表和......

我知道如何在 word 文件中復制圖表，但不知道在特定段落中。 下面的代碼只是把圖復制到word文件中，但是它的position不能調整（比如應該在哪個段落）。

   Set chObject = wb1.Worksheets("Sheet1").ChartObjects(c1) 

   chObject.CopyPicture xlScreen, xlPicture

        On Error Resume Next
        Do
            Err.Clear
            WordRange.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
            DoEvents
            If Err.Number <> 0 Then Application.Wait DateAdd("s", 1, Now)
        Loop While Err.Number <> 0
        On Error GoTo 0
        

任何人都可以幫忙嗎？

Answer 1

最后，我明白了問題的答案，像下面的代碼一樣使用段落 object 就足夠了。 下面的代碼復制了第五段中的圖

   chObject.Chart.ChartArea.Copy

           myDoc.Paragraphs(10).Range.PasteSpecial Link:=False, _
            DataType:=wdPasteMetafilePicture, _
            Placement:=wdTight, _
            DisplayAsIcon:=False