復制圖表Excel-Word的宏更改圖表外觀

Question

我將Excel（2010）中的圖表復制粘貼為Word中的圖像。 復制粘貼可以正常工作，但是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:=xlBitmap


    WDApp.Selection.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
    Placement:=wdInLine, DisplayAsIcon:=False


   WDApp.Selection.MoveEnd wdStory
   WDApp.Selection.Move
Next
WDDoc.SaveAs ("C:\Temp\charts.docx")
WDDoc.Close ' close the document

' Clean up
Set WDDoc = Nothing
Set WDApp = Nothing

End Sub

Answer 1

嘗試使用Copy方法復制ChartObject

ActiveSheet.ChartObjects(iCht).Copy

並嘗試粘貼為位圖或PNG：

WDApp.Selection.Range.PasteSpecial Link:=False, DataType:=wdPasteBitmap, _
Placement:=wdInLine, DisplayAsIcon:=False

WDApp.Selection.range.PasteSpecial Link:=False, DataType:=14, Placement:=wdInLine, _
DisplayAsIcon:=False