Я создаю макрос, который будет автоматически отображать много данных для меня. Я хотел бы разместить четыре графика на странице, но у меня возникла проблема с перемещением графиков на чистый лист диаграммы. Диаграммы представляют собой диаграммы XYScatter.
Я использую эту команду для их перемещения, где Vars (iOrg, 3) содержит имя пустого листа диаграммы:
.Location xlLocationAsObject, Vars(iOrg, 3)
Эта команда фактически работаети перемещает диаграмму, как положено, но затем я получаю ошибку времени выполнения:
Run-time error '1004':
The specified dimension is not valid for the current chart type.
Если я нажму 'debug' и просто пропущу строку, у команды не возникнет проблем на следующих трехграфики, только первый.
Я записал марко при ручном перемещении графика, он выдаст то же сообщение, если я на самом деле попытаюсь его использовать. Хотя на самом деле это тоже приведет к смещению графика.
Sub Macro6()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Location Where:=xlLocationAsObject, Name:="Control"
End Sub
Есть идеи, что может вызвать эту ошибку и как ее избежать? Я не могу вспомнить, чтобы когда-нибудь код делал то, что предполагалось, а потом выдавал ошибку раньше.
Также, похоже, нет проблемы с перемещением диаграммы на рабочий лист, только на пустой лист диаграммы.
Примечание: тип диаграммы: xlXYScatterSmoothNoMarkers, Excel 2013.