macros复制图表Excel-Word更改图表外观

我将Excel（2010）中的图表复制粘贴为Word中的图像。 复制粘贴的作品，但Word中的最终图表是不同于原来的，我手动复制粘贴（粘贴特殊 – 图片）。

我试图改变粘贴的数据types和复制的格式，但结果总是相同的。 任何其他选项？

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

尝试使用复制方法复制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