Передвинуть диаграмму в Excel средствами OLE

@znseday · Регистрация: 20.03.2012

Студворк — интернет-сервис помощи студентам

При попытке задать свойство "Top" для диаграммы вылетает ошибка "Член группы не найден".

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Variant  vVarApp,vVarBooks,vVarBook,vVarSheets,vVarSheet, vVarCharts;
 
    vVarApp = CreateOleObject("Excel.Application");
    vVarBooks = vVarApp.OlePropertyGet("Workbooks"); // Workbooks,  набор рабочих книг Excel
    vVarApp.OlePropertySet("SheetsInNewWorkbook", 5 ); // Кол-во листов в создаваемой книге
    vVarBooks.OleProcedure("Add"); //  Добавляем книгу в объект vVarBooks
    vVarBook = vVarBooks.OlePropertyGet("Item", 1); // Переменная vVarBook содержит ссылку на текущую книгу.
    vVarSheets = vVarBook.OlePropertyGet("Worksheets") ; // Присваиваем значение Worksheets
    vVarSheet = vVarSheets.OlePropertyGet("Item", 1); // Берем первый лист
    vVarSheet.OlePropertySet("Name", "Диаграмма");    // Даем ему название
 
    vVarCharts = vVarApp.OlePropertyGet("Charts");
    vVarCharts.OleProcedure("Add");     // Добавляем диаграмму
 
    // Вставляем диаграмму в нужный лист
    vVarBook.OlePropertyGet("ActiveChart").OleProcedure("Location", 2, "Диаграмма"); // xlLocationAsObject = 2;
    // Двигаем диаграмму
    vVarSheet = vVarSheets.OlePropertyGet("Item", 1); // Берем первый лист
    vVarSheet.OleProcedure("Activate");
 
// Здесь возникает ошибка!
    vVarSheet.OlePropertyGet("ChartObjects").OlePropertyGet("Item", 1).OlePropertySet("Top", 120);
 
    vVarApp.OlePropertySet("Visible", true); // Делаем приложение видимым

Подскажите, в чем может быть дело? Как правильно задавать местоположение диаграммы на листе?

@volvo · 11.08.2013, 01:22

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

в чем может быть дело?

В версии Оффиса. У меня под ExcelXP это прекрасно отработало. Ну, за исключением того, что я всегда обращаюсь к строковым свойствам через WideString:

C++
1
2
3
4
5
6
7
8
9
    // ...
    vVarSheet.OlePropertySet("Name", WideString(L"Диаграмма"));    // Даем ему название
 
    vVarCharts = vVarApp.OlePropertyGet("Charts");
    vVarCharts.OleProcedure("Add");     // Добавляем диаграмму
 
    // Вставляем диаграмму в нужный лист
    vVarBook.OlePropertyGet("ActiveChart").OleProcedure("Location", 2, WideString(L"Диаграмма"));
    // ...

@znseday · 11.08.2013, 11:13 **[ТС]**

У меня Excel 2010... Но в любом случае нужен универсальный код, т.к. делаю не для себя, а для пользователей.

@volvo · 11.08.2013, 11:49

Универсально - не получится. Один Excel требует OlePropertyGet, другой - OleFunction... См. здесь: EOleSysError with message 'Член группы не найден', там всё написано...

@znseday · 11.08.2013, 14:34 **[ТС]**

Печально как-то..
Интересно, есть ли такая же проблема неуниверсальности в компоненте TExcelApplication (с вкладки OfficeXP, например)?
Хотя TExcelApplication у меня вообще не хочет работать. Но вдруг когда-нибудь...

@volvo · 11.08.2013, 18:22

Без понятия. Проверить негде. Вот этот код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#include "Excel_XP_srvr.h"
// ...
#pragma link "Excel_XP_srvr"
// ...
 
    TExcelApplication* ExcelApplication1 = new TExcelApplication(NULL);
    TExcelWorkbook* ExcelWorkbook1 = new TExcelWorkbook(NULL);
    TExcelWorksheet* ExcelWorksheet1 = new TExcelWorksheet(NULL);
 
    ExcelApplication1->Connect();
    ExcelApplication1->Workbooks->Add();
    ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->get_Item(TVariant(1)));
    ExcelWorkbook1->Activate(0);
    ExcelApplication1->set_Visible(0, true);
 
    ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item(TVariant(1)));
    ExcelWorksheet1->Activate(0);
    ExcelWorksheet1->set_Name(L"Диаграмма");
 
    ExcelApplication1->Charts->Add();
    _ChartPtr chart = ExcelApplication1->Charts->get_Item(TVariant(1));
    chart->Location(XlChartLocation::xlLocationAsObject, TVariant(WideString(L"Диаграмма")));
 
    ChartObjectPtr pChart = ExcelWorksheet1->ChartObjects(TVariant(1));
    pChart->set_Top(120);
    // ...

отработал на ExcelXP (компилировалось Builder XE2), попробуй собрать его и проверить на своей версии XL...

@znseday · 11.08.2013, 23:57 **[ТС]**

У меня вообще не компилируется Excel_XP.h:
Ошибка при компиляции Excel_XP.h
Поэтому я заморочился с OLE...
А так компоненты мне использовать удобней: хорошо читаемый привычный код и именованные константы, суть которых ясна из их названия.

@znseday · 18.08.2013, 15:42 **[ТС]**

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

Ну, за исключением того, что я всегда обращаюсь к строковым свойствам через WideString

При переходе с 2010 на XE4 это действительно стало критичным...

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@znseday 18 / 18 / 7 Регистрация: 20.03.2012 Сообщений: 585
	11.08.2013, 11:13 [ТС]
	У меня Excel 2010... Но в любом случае нужен универсальный код, т.к. делаю не для себя, а для пользователей. 0

@volvo Супер-модератор 33372 / 21498 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	11.08.2013, 11:49
	Универсально - не получится. Один Excel требует OlePropertyGet, другой - OleFunction... См. здесь: EOleSysError with message 'Член группы не найден', там всё написано... 1

@znseday 18 / 18 / 7 Регистрация: 20.03.2012 Сообщений: 585
	11.08.2013, 14:34 [ТС]
	Печально как-то.. Интересно, есть ли такая же проблема неуниверсальности в компоненте TExcelApplication (с вкладки OfficeXP, например)? Хотя TExcelApplication у меня вообще не хочет работать. Но вдруг когда-нибудь... 1

@znseday 18 / 18 / 7 Регистрация: 20.03.2012 Сообщений: 585
	11.08.2013, 23:57 [ТС]
	У меня вообще не компилируется Excel_XP.h: Ошибка при компиляции Excel_XP.h Поэтому я заморочился с OLE... А так компоненты мне использовать удобней: хорошо читаемый привычный код и именованные константы, суть которых ясна из их названия. 0