0

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

По идее код должен быть примерно такой:

procedure TMyExcelClass.MyProcedure;
var
  sheet, chartObject: Variant;
begin
  sheet := fExcel.ActiveWorkBook.Sheets['какой-то лист'];
  chartObject := sheet.ChartObjects[1];
  chartObject.Left := <левая граница ячейки "F">
  chartObject.Top := <верхняя граница ячейки "34">
end;

Как правильно позиционировать график к границам ячейки? (с учетом того, что ячейки могут иметь разную ширину и высоту)

9
  • 34 * (ширина ячейки + ширина рамки ячейки). Так же с высотой.
    – slippyk
    17 июн 2016 в 12:10
  • @slippyk неверно. Ячейки могут иметь разную ширину и высоту. Добавил это в вопрос.
    – Kromster
    17 июн 2016 в 12:13
  • @Kromster Запиши в excel макрос и посмотри как он это делает. 17 июн 2016 в 12:15
  • 2
    Chart содержится внутри Shape. У Shape есть свойства Left и Top, позиционирующие относительно левой-верхней ячейки листа. Left и Top можно взять прямо у нужной ячейки: Sheet.Cells[i, j].Left. Не стоит работать с ActiveWorkbook и т.п. из Application.ActiveXXX. ru.stackoverflow.com/a/499795/192901
    – kami
    17 июн 2016 в 12:22
  • 1
    Вы же открываете/создаете книгу? Соответственно, используете Application.Workbooks.Add или аналоги. Это - функция, и она возвращает ссылку на книгу. Соответственно - присваиваем результат в свою переменную myWorkbook и дальше работаем именно с myWorkbook, а не с ActiveWorkbook. По аналогии - с листом.
    – kami
    17 июн 2016 в 12:30

2 ответа 2

1

Один из вариантов (предложенных тут) взять диапазон, у него есть свойства Left и Top.

procedure TMyExcelClass.MyProcedure;
var
  sheet, chartObject, r: Variant;
begin
  sheet := fExcel.ActiveWorkBook.Sheets['какой-то лист'];

  r := sheet.Range['F34'];

  chartObject := sheet.ChartObjects[1];
  chartObject.Left := r.Left;
  chartObject.Top := r.Top
end;
0

Свойство Left (объекта Shape) типа Single задает расстояние в точках от левого края объекта до левого края столбца A (на листе) или левого края области диаграммы (на графике). Аналогично свойство Top от верхнего края листа.

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

2
  • "сложить ширину всех ячеек слева от нужной" .. оверкил какой-то. Мой вариант гораздо проще.
    – Kromster
    17 июн 2016 в 12:27
  • Согласен, ваше решение куда элегантней. 17 июн 2016 в 12:28

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

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