將多個圖表複製到Word文檔

我試圖將一個圖表中的一系列圖表複製到單詞中的一個文檔中，但出於某種原因，我只獲取最新的粘貼（表示表格中的最後一張圖表）。我知道，迭代經過的所有圖表，becausewhen我modofiy代碼打印每個它這樣做圖一個字的文檔，但我想圖表在一起，所以請大家幫我出將多個圖表複製到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

來源

2013-03-26 Jakob

請更換開始PasteSpecial線爲：

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

在你的情況，你粘貼圖表到整個文檔而不是當前段落。

還有一個建議。您可以使用以下內容插入新段落：

WDApp.Selection.MoveEnd wdStory 
WDApp.Selection.Move

來源

2013-03-26 12:39:24

將多個圖表複製到Word文檔

回答

相關問題