2

我正在尝试将一张表中的一系列图表复制到一个 word 文档中，但由于某种原因，我只得到了最新的粘贴（意味着工作表上的最后一个图表）。我知道迭代会遍历所有图表，因为当我修改代码为每个图表打印一个单词文档时，它会这样做，但我希望图表在一起，所以请帮帮我

编码：

Sub ChartsToWord()

Dim WDApp As Word.Application
Dim WDDoc As Word.Document
Dim iCht As Integer
Dim Msg As String

Set WDApp = CreateObject("Word.Application")
Set WDDoc = WDApp.Documents.Add

For iCht = 1 To ActiveSheet.ChartObjects.Count
    ' copy chart as a picture
    ActiveSheet.ChartObjects(iCht).Chart.CopyPicture _
        Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture


    WDDoc.Content.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False

    WDDoc.Content.InsertParagraphAfter
Next
WDDoc.SaveAs ("C:\Users\confidential\Documents\charts.doc")
    WDDoc.Close ' close the document

' Clean up
    Set WDDoc = Nothing
    Set WDApp = Nothing

End Sub
4

1 回答 1

4

请将PasteSpecial行首替换为：

WDApp.Selection.Range.PasteSpecial ... 'and so on

在您的情况下，您将图表粘贴到整个文档而不是当前段落中。

还有一个建议。您可以使用以下内容插入新段落：

WDApp.Selection.MoveEnd wdStory
WDApp.Selection.Move
于 2013-03-26T12:39:24.377 回答