Как создать диаграмму в Excel при помощи OLE

← →
Виталя (2003-08-28 16:36) [0]

Нужно написать процедурку, чтобы по заданому диапазону ячеек на листе в Excel - файле построить круговую диаграму (xlPie). Была бы очень благодарна за кусочек кода, диаграмка у меня создается, но "привязать" к заданому Range не получается
Варианты
DiagramObject.SeriesCollection[1].YValues:=Range;
DiagramObject.SeriesCollection[1].Values:=Range;
DiagramObject.SeriesCollection[1].XValues:=Range;
не срабатывают.

← →
Романов Р.В. (2003-08-28 16:46) [1]

> Виталя

> Была бы очень благодарна за кусочек кода

???
Запись макроса в Excel не помогает?

← →
Виталя (2003-08-28 16:55) [2]

Не помагает: макрос в Excel строится на том что вначале выделяется участок :
Range(...).Select
Charts.Add
ActiveChart.ChartType = xlPie
А когда начинаешь писать такое, то это не срабатывает, при создании диаграммы выделение снимается, и создается пустышка.

← →
Polevi (2003-08-28 16:57) [3]

создай макрос при созданом чарте

← →
Романов Р.В. (2003-08-28 16:59) [4]

А при изменении диапазона данных как выглядит макрос

← →
Виталя (2003-08-28 17:11) [5]

ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("B7:C8"), PlotBy:= _
xlColumns

Ну да варианты
DiagramObject.SeriesCollection[1].Source:=Range
DiagramObject.SeriesCollection[1].SetSourceData(Range)
то же уже пробовались, просто не упоминула в начале.
Эффекта ноль

← →
olookin (2003-08-28 18:02) [6]

V.SeriesCollection[n].XValues:="="""+s+"""!R"+IntToStr(XRow)+
"C"+IntToStr(XCol)+":R"+IntToStr(lenx+XRow-1)+"C"+IntToStr(XCol);
V.SeriesCollection[n].Values:="="""+s+"""!R"+IntToStr(YRow)+
"C"+IntToStr(YCol)+":R"+IntTostr(leny+YRow-1)+"C"+IntToStr(YCol);

для обычной линейной серии... Посмотрите, как записана реализация для серии на круговой диаграмме и поправьте пример...

s - имя листа
n - номер серии (предполагаемтся уже созданной)
XCol - номер столбца для ккординаты X
YCol - то же для Y
XRow и YRow - то же но для строк
leny - длина массива, Range

Как создать диаграмму в Excel при помощи OLE Найти похожие ветки