Диаграмма из Excel в Word

[alex_or]

В Excel написал макрос для переноса диаграммы в документ Word

Код: Выделить всё

Dim oWordDoc As Object
Set oWordDoc = GetObject("C:\itogi.doc")
oWordDoc.Parent.Visible = True
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
oWordDoc.Bookmarks("График").Select
oWordDoc.Selection.PasteAndFormat Type:=wdChartPicture


Но при выполнении последней строки выскакивает ошибка:
"Object doesn't support this property or method"
Как ни бился, ничего не получается

[lord0n]

В Excel написал макрос для переноса диаграммы в документ Word

Код: Выделить всё

Dim oWordDoc As Object
Set oWordDoc = GetObject("C:\itogi.doc")
oWordDoc.Parent.Visible = True
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
oWordDoc.Bookmarks("График").Select
oWordDoc.Selection.PasteAndFormat Type:=wdChartPicture


Но при выполнении последней строки выскакивает ошибка:
"Object doesn't support this property or method"
Как ни бился, ничего не получается

меняй wdChartPicture на числовой эквивалент