Макрос для копирования диаграммы Внешний вид изменений в Excel-Word

Question

Я скопирую графики из Excel (2010) в виде изображений в Word. Копирование-вставка работает, но окончательный график в Word отличается от оригинала, а то, что я копирую-вставляю вручную (Вставить специальный - Картинка).

Я попытался изменить DataType в Вставить и Формат в копии, но результат всегда один и тот же. Любой другой вариант?

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 с Copy Метод

ActiveSheet.ChartObjects(iCht).Copy 

И попытайтесь наклеивать как Bitmap или 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