Графики в Excel

[fialka]

Цитата:

Сообщение от ivas

конечно можно этож COM )

спасибо...

[fialka]

а кто нибудь выводил несколько диаграмм на один лист?
Может подскажите как лучше это реализовать? я вывожу на один лист, но диаграммы накладываются друг на друга.

[Gustav]

1. Возьмите свой получившийся xls-файл с диаграммами.
2. Включите в Excel (ручками) запись макроса.
3. Разведите свои диаграммы мышкой по рабочему листу, как вам нравится.
4. Выключите запись макроса.
5. Проанализируйте получившийся VBA-код и воплотите его в X++.

[fialka]

Цитата:

Сообщение от Gustav

1. Возьмите свой получившийся xls-файл с диаграммами.
2. Включите в Excel (ручками) запись макроса.
3. Разведите свои диаграммы мышкой по рабочему листу, как вам нравится.
4. Выключите запись макроса.
5. Проанализируйте получившийся VBA-код и воплотите его в X++.

    COM COMAppl;
    COM COMWorkbooks, COMworkbook,    COMChart;
    COM COMWorksheet;
    COM COMSeries;
    ;
   ...
    COMappl = COM::getObject(#Excel);
    if (! COMappl)
    COMappl = new COM(#Excel);
    try
    {
    COMappl.visible(TRUE);
    COMworkbooks = COMAppl.Workbooks();
    COMworkbook = COMworkbooks.add();
    COMWorksheet = COMworkbook.Worksheets();
 
    COMWorksheet = COMWorksheet.Item(1);
    COMChart = COMworkbook.Charts();
    COMChart = COMChart.add();
    COMChart.ChartType(65); 
    COMChart = COMChart.Location(2 , COMWorksheet.Name() );
    COMSeries = COMChart.SeriesCollection();
    COMSeries = COMSeries.NewSeries();
    COMSeries.Values( "1");
    COMSeries.Name( "№1");
    COMSeries.XValues( con2str(conX,";") );
  //

Запускала макрос. примерно вот так запускается первый объект.


но как прописать такое ... /
ActiveWindow.Visible = False
Windows("Книга1").Activate
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
COMSeries.Shapes("Диагр. 1").IncrementLeft -222#
ActiveSheet.Shapes("Диагр. 1").IncrementTop -159#

Затрудняюсь написать.

Да и не верно это будет. указывать куда конкретно переместить диаграмму.
Ведь от условий запуска они могут быть разные .
вот тут-то и загвоздка.

[Gustav]

Цитата:

Сообщение от fialka

я вывожу на один лист, но диаграммы накладываются друг на друга.

Цитата:

Сообщение от fialka

Да и не верно это будет. указывать куда конкретно переместить диаграмму.

ох, для начала достигните консенсуса среди себя
чего хотите-то в итоге? или на разных листах разместить?

Цитата:

Сообщение от fialka

но как прописать такое ... /
ActiveWindow.Visible = False
Windows("Книга1").Activate
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
COMSeries.Shapes("Диагр. 1").IncrementLeft -222#
ActiveSheet.Shapes("Диагр. 1").IncrementTop -159#

Затрудняюсь написать.

Ну как написать... По аналогии с тем, что у вас написано выше для других объектов Excel. Отталкиваясь от объекта Application (у вас это - COMappl). Как обычно для COM-объекта. Спускаясь по иерархии объектов. Не используя более одной "точки" за раз (из-за позднего связывания).

Ко всем этим строчкам можно для наглядности приставить слева "Application." и сразу всё становится понятнее. Строчки типа:
ActiveSheet.ChartObjects("Диагр. 1").Activate
ActiveChart.ChartArea.Select
можно сразу удалить. Они олицетворяют ваш выбор мышкой во время записи макроса и совершенно не нужны в автоматическом режиме.

Ну, и хелп в Excel по этим новым объектам поглядеть надо. У объекта Shape есть не только свойства IncrementLeft и IncrementTop, но и просто Left и Top - так что можно сразу позиционировать диаграмму в конкретное место, а не передвигать ее из места по умолчанию.

Цитата:

Сообщение от fialka

Да и не верно это будет. указывать куда конкретно переместить диаграмму.
Ведь от условий запуска они могут быть разные .
вот тут-то и загвоздка.

Могу предположить, что разные, но наверняка в любом наборе ваших диаграмм среди них будет первая, вторая... пятая, шестая... Ну, так и спланируйте заранее диаграммоместа на вашем листе (координаты Left, Top). Например, так:
1 2
3 4
5 6
или, скажем, так:
1 4
2 5
3 6