Всем привет, появилась задача в которой нужно перенести диаграмму из EXCEL в Word , средствами VBA
Объекты ворда, для меня тёмный лес, сделал в документе закладку, и на место закладки хочу поместить диаграмму картинкой, подскажите что я делаю не так?
Предыдущая тема была удалена, без комментариев , если будете эту удалять, напишите причину пожалуйста
Объекты ворда, для меня тёмный лес, сделал в документе закладку, и на место закладки хочу поместить диаграмму картинкой, подскажите что я делаю не так?
Предыдущая тема была удалена, без комментариев , если будете эту удалять, напишите причину пожалуйста
| Код |
|---|
Sub Test()
Dim objWrdApp As Object, objWrdDoc As Object
Set objWrdApp = CreateObject("Word.Application")
objWrdApp.Visible = True
Set objWrdDoc = objWrdApp.Documents.Open("C:\1.doc")
Sheets("Диаграммы").ChartObjects("Диаграмма 1").Chart.ChartArea.Copy
objWrdDoc.Bookmarks("Диаграмма1").Range.Text = Sheets("Диаграммы").ChartObjects("Диаграмма 1").Chart.ChartArea
objWrdDoc.Close True
objWrdApp.Quit
Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub |
Изменено: - 28.12.2016 11:55:42
У меня нет кнопки F1
