Это создает сообщение об ошибке во встроенных гистограммах, но все равно изменяет исходные данные. Если я изменю тип диаграммы на другие типы, например Линейные, линейчатые или круговые диаграммы работают нормально и не выдают сообщений об ошибках. Что я делаю неправильно для диаграмм гистограммы?
Dim sht As Worksheet
Dim cht As ChartObject
Set sht = Sheets("Sheet1")
Set cht = sht.ChartObjects("Chart 1")
cht.Chart.SetSourceData Source:=sht.Range("D2:D16")
Я ожидаю, что он изменит исходные данные для диаграммы гистограммы так же, как и для других типов диаграмм, но это сообщение всплывает и останавливает запуск остальной части макроса:
Ошибка времени выполнения '445': объект не поддерживает это действие