Я работаю над макросом для перемещения данных из одной рабочей книги в другую, которая включает в себя несколько диаграмм.Чтобы новая книга не порвалась, я хочу вставить эти диаграммы в виде рисунков.
В моем коде возникают ошибки, когда я копирую и вставляю графики между двумя книгами, но эти ошибкипродолжайте происходить в разных строках моего кода (обычно в операциях копирования или вставки, но обычно в разных строках, касающихся разных диаграмм).Одна из ошибок гласит: «Невозможно получить свойство Paste класса Pictures».Другой читает «Метод« Копировать »объекта« ChartArea »Failed.»
Если я войду в режим отладки и нажму F5, чтобы продолжить выполнение кода, макрос сможет завершить операцию, которая выдавала ошибку кака также закончить оставшуюся часть кода без проблем.
'Copy/Paste Chart 4
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("Q3").Select
ActiveSheet.Pictures.Paste.Select
'Copy/Paste Chart 5
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("Q3").Select
ActiveSheet.Pictures.Paste.Select
...
'Copy/Paste Chart n
Windows(2).Activate
ActiveSheet.ChartObjects("Chart n").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("X3").Select
ActiveSheet.Pictures.Paste.Select