4

Делаю отчет в Excel-е с диаграммой на delphi.
У него фиксированная позиция:

chart := sheet.chartobjects.add(270,205,397,220);

Как сделать, чтоб диаграмма началась с нужной мне колонки?

1 ответ 1

4

Амирхон, чтобы вам проще было работать в Delphi (да и в других программах) с офисными продуктами, постарайтесь разобраться в иерархии объектов. Как только вы разберетесь, многие вещи сразу станут понятны. Я не могу посоветовать вам какую-то конкретную книгу, поскольку сам когда-то разбирался методом научного тыка, но, возможно, кто-то другой посоветует.

Хороший тон - использовать инструменты разработчика, они очень сильно помогают. В офисе 2003 и ранее - это запись макросов с последующим их анализом, позже - то же самое + использование вкладки Разработчик (её необходимо предварительно включить в настройках).

Итак, Chart входит в семейство Shapes, которое принадлежит Sheet (принадлежащий, в свою очередь, Book). Фишка в том, что к одному и тому же объекту можно обратиться по-разному, OLE это позволяет. И тот факт, что у каждого программиста есть свои любимые подходы, порождает массу непонятного. Но стоит прочувствовать иерархию, всё становится на свои места.

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

Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=True;
Book:=Excel.Workbooks.Add; // мне не жалко переменных для каждого объекта
Sheet:=Book.Worksheets[1]; // поскольку дальше проще работать
for i := 1 to 5 do
  begin
    Sheet.Cells[i, 1].FormulaR1C1:=i;
    Sheet.Cells[i, 2].FormulaR1C1:=cos(i); // пусть будет косинус
  end;

Все переменные здесь - OleVariant. Теперь создаем диаграмму:

ch:=Sheet.Shapes.AddChart; 

Я специально выбрал для диаграммы переменную ch, а не chart, поскольку у диаграммы несколько уровней свойств, в том числе и свойство Chart, многие начинающие путаются в этом. Далее:

Ch.Name := 'График 1'; // обзовём диаграмму так
Ch.Chart.ChartType := xlLineMarkers; // тип диаграммы

Типы диаграмм мы обсуждали в Как правильно задать тип chart-а c помощью delphi. Либо вы поступаете так, как я порекомендовал, либо можно использовать один из встроенных модулей Delphi, например, ExcelXP или Excel2010, в которых эти константы определены. Отмечу, что, чтобы изменить некоторые свойства диаграммы, например, название, я обращаюсь непосредственно к переменной ch, а вот для работы с графиком я должен уже обращаться к свойству Chart.

Ну, а теперь вернемся к нашему основному вопросу. Изменим координаты. Координаты - свойства непосредственно диаграммы, это Left и Top. Задаются они в пикселях, причём только для левого верхнего угла, а правый нижний уже определяется Width и Height (шириной и высотой, причём, как правило, в долях экрана, а не в пикселях). Так как вам нужно поместить диаграмму не в координатах пикселей, а в координатах ячеек, то нам нужно вначале их рассчитать:

Ch.Left := Sheet.Range['A1:D1', EmptyParam].Width + 2; 
Ch.Top := Sheet.Range['E1:E3', EmptyParam].Width + 2;

Я поместил, таким образом, свою диаграмму в ячейку E4, сместив её край на 2 пикселя. Кстати, тот же самый результат можно получить по-другому:

Ch.Left := Sheet.Range['E4', EmptyParam].Left + 2; 
Ch.Top := Sheet.Range['E4', EmptyParam].Top + 2;

Что ещё раз демонстрирует разные подходы.

2
  • 1
    я только начинаю программировать...) спасибо Вам, очередной раз большое, за столь доходчивый и понятный ответ)) очень помогли) 16 янв 2018 в 8:30
  • @Амирхон всегда пожалуйста! Стремление знать больше - очень хорошее качество. 16 янв 2018 в 12:25

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.