将图表 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