我试图将一张纸上的一系列图表复制到一个文档中,但是由于某种原因,我只能得到最新的粘贴(意味着纸上的最后一张图表)。我知道迭代遍历了所有图表,因为当我修改代码以为每个图表打印一个单词文档时,它会这样做,但是我希望将这些图表放在一起,所以请帮帮我
代码:
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
最佳答案
请将PasteSpecial
行的开头替换为:
WDApp.Selection.Range.PasteSpecial ... 'and so on
根据您的情况,将图表粘贴到整个文档中而不是当前段落中。
还有一个建议。您可以使用以下内容插入新段落:
WDApp.Selection.MoveEnd wdStory
WDApp.Selection.Move