Как изменить заголовок диаграммы в Excel, созданной через Delphi Seattle

Delphi , Технологии , COM и DCOM

Как изменить заголовок диаграммы в Excel, созданной через Delphi Seattle

При работе с Excel в среде Delphi Seattle пользователи иногда сталкиваются с проблемами при изменении заголовка диаграммы. Это может быть вызвано ошибками доступа к памяти (AV errors), когда пытаются изменить свойства диаграммы. В данной статье мы рассмотрим, как решить эту проблему, и приведем примеры кода на Object Pascal, которые помогут вам в этом.

Описание проблемы

Пользователь использует Delphi Seattle для создания и отображения диаграммы в Excel 2013, построенной на основе сводной таблицы. Диаграмма отображается корректно, но имеет стандартный заголовок, который необходимо изменить. Однако при попытке изменить свойства диаграммы, в том числе заголовок, возникают ошибки доступа к памяти.

Пример кода с ошибкой

Вот пример кода, который приводит к ошибке при попытке изменить заголовок диаграммы:

procedure TForm1.Button1Click(Sender: TObject);
var
  oExcel : ExcelApplication;
  RawDataSheet : _Worksheet;
  myChart: Shape;
begin
  oExcel := CreateOleObject('Excel.Application') as ExcelApplication;
  oExcel.Visible[LOCALE_USER_DEFAULT] := True;
  // ... (омissions for brevity)
  myChart := RawDataSheet.Shapes.AddChart2(208, xlColumnClustered, 200, 10, 300, 300, True);
  // Попытка доступа к заголовку диаграммы приведет к ошибке
  myChart.Chart.HasTitle[LOCALE_USER_DEFAULT] := True;
  // Установка текста заголовка также вызовет ошибку
  myChart.Chart.ChartTitle[LOCALE_USER_DEFAULT].Caption := 'New Chart Title';
  // ... (омissions for brevity)
end;

Решение проблемы

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

uses
  comobj, excel_tlb;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  oExcel : ExcelApplication;
  RawDataSheet : _Worksheet;
  myChart: Shape;
begin
  // ... (омissions for brevity)
  myChart := RawDataSheet.Shapes.AddChart(xlColumnClustered, 200, 10, 300, 300);
  myChart.Select(False);
  // Установка заголовка диаграммы после ее выбора
  oExcel.ActiveChart.HasTitle[LOCALE_USER_DEFAULT] := True;
  oExcel.ActiveChart.ChartTitle[LOCALE_USER_DEFAULT].Caption := 'New Chart Title';
  // ... (омissions for brevity)
end;

Также стоит отметить, что в некоторых случаях может потребоваться отказ от типового безопасного доступа и использование примеров VBA из документации Microsoft, которые не соответствуют сигнатурам сгенерированной библиотеки типов.

Альтернативный подход

Возможно использование OleVariant для доступа к свойствам диаграммы:

var
  V: OleVariant;
begin
  // ... (омissions for brevity)
  myChart := RawDataSheet.Shapes.AddChart(xlColumnClustered, 200, 10, 300, 300);
  V := myChart.Chart;
  V.HasTitle := True;
  V.ChartTitle.Caption := 'Chart Title';
  // ... (омissions for brevity)
end;

Этот подход может быть необходим, если стандартные методы не работают.

Заключение

Изменение заголовка диаграммы в Excel через Delphi Seattle может быть не так просто, как кажется на первый взгляд. Важно правильно выбрать диаграмму и использовать корректные свойства для установки заголовка. В случае возникновения ошибок, стоит обратить внимание на выбор диаграммы перед изменением свойств и использовать альтернативные подходы, если стандартные методы неэффективны.

Создано по материалам из источника по ссылке.

Пользователь сталкивается с трудностями при попытке изменить заголовок диаграммы в Excel, созданной с помощью среды Delphi Seattle, и ищет решение проблемы с ошибками доступа к памяти при этом.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: COM и DCOM ::