在Word中粘貼Excel圖表，VBA

Question

我使用Windows XP SP 3.我已經寫代碼從Excel 2003中多個圖表粘貼到Word 2003

Dim word As Object 
Dim doc As Object 
On Error Resume Next 

Set word = GetObject(, "word.application") 'gives error 429 if Word is not open 
If Err = 429 Then 
    Set word = CreateObject("word.application") 'creates a Word application 
    Err.Clear 
End If 

With word 
    .Visible = True 
    .Documents.Add 
End With 

Sheets("Data").Select 

For i = 1 To 2 
    ActiveSheet.ChartObjects(i).Activate 
    ActiveChart.ChartArea.Copy 
    With word.Selection 
     'Paste Chart 
     .Range.PasteSpecial 
    End With 
Next i 

我想明白了，我怎麼可以把Excel 2003中的圖表在不同的地方創建成word文件？ E.x.我想按以下順序放置4個圖表：第一個圖表被分配到文檔的左端（不是段落），第二個圖表被分配到文檔的左側，3d位於第一個下面，同樣用於4。

謝謝你的回答！

UPD：基於有用的註釋，我爲我的問題列出了以下解決方案。創建模板文件並在其中插入一個名爲insertHere的書籤。在此文件中使用Excel VBA進行更改。

下面是該

Sub macro() 
Dim word As Object 
On Error Resume Next 

Set word = GetObject(, "word.application") 'gives error 429 if Word is not open 
If Err = 429 Then 
    Set word = CreateObject("word.application") 'creates a Word application 
    Err.Clear 
End If 

Set templateFile = word.documents.Add(Template:="C:\Users\PC\Desktop\Doc4.dot") 
Sheets("Data").Select 

ActiveSheet.ChartObjects(1).Activate 
ActiveSheet.ChartObject(1).Select 
ActiveChart.ChartArea.Copy 
With templateFile.Bookmarks 
    .Item("insertHere").Range.Paste 
End With 
End Sub 

然而代碼，此代碼不插入圖表。你能給我一個暗示爲什麼？

Answer 1

最簡單的方法是在Word中定義Bookmarks以查看您希望粘貼圖表的位置。在Word 2003中，如果我記得正確，該選項位於插入菜單上的書籤。首先定位光標，插入，書籤（Ctrl-Shift-F5）給它一個名字，如bkChart1（不含空格）。然後：

word.ActiveDocument.Bookmarks("bkChart1").Range.PasteAndFormat 
' there are other Paste methods, or PasteSpecial 

如果你喜歡的文件，並粘貼的對象格式，使用代碼，那麼你會很好地記錄在Word中的幾個宏。它不會創建完美的代碼，但它會幫助您發現所需的方法和屬性。