Уважаемые гуру форума, проконсультируйте, пожалуйста можно ли и как сделать следующее. Ситуация такая: по умолчанию при помощи словаря формируется и выгружается двумерный массив Arr_r и в дальнейшем эти выгруженные данные используются при формировании диаграммы:
Код |
---|
...
Sheets("Диаграммы").Range("A1").Resize(UBound(Arr_R, 1), UBound(Arr_R, 2)).Value = Arr_R 'выгрузка результата
... |
Все работает правильно, но родился вопрос

. А можно ли и как, если можно, сразу, без выгрузки указать готовый массив как источник данных для диаграммы? Ведь массив имеет правильную структуру и правильные данные. Немного пытался сделать это так, но не вышло (разумеется эти строки находятся ниже строк уже сформированного массива):
Код |
---|
Set oChart = Charts.Add(, ActiveSheet) 'создание диаграммы
' Set rRng = Arr_R
With oChart
.ChartType = xlPie 'указание на тип диаграммы
.SetSourceData (rRng) 'привязка к указанному диапазону данных
... |
Пытался, методом "научного тыка" определить rRng как Set rRng = Range(UBound(Arr_R, 1), UBound(Arr_R, 2)) или Set rRng = Array(Arr_R) результат тот же.
Сейчас rRng определяется приблизительно так
Код |
---|
Set rRng = Range("A1:B4") |
Все работает, но можно ли сделать иначе?
Заранее спасибо за помощь