如何将Excel中的元素（图表）定位到特定单元格？

Question

我有一个在Excel中的图表需要定位（移动）到特定的单元格。

我希望实现以下操作：

procedure TMyExcelClass.MyProcedure;
var
  sheet, chartObject: Variant;
begin
  sheet := fExcel.ActiveWorkBook.Sheets['Some sheet'];
  chartObject := sheet.ChartObjects[1];
  chartObject.Left := <Left of cell "F">
  chartObject.Top := <Top of cell "34">
end;

如何将位置图表对象定位到特定单元格？（考虑到单元格可能具有不同的宽度和高度）

- Kromster

Answer 1

创建一个范围，以定位图表所在的单元格。然后将该范围的左侧和顶部属性分配给图表对象。

procedure TMyExcelClass.MyProcedure;
var
  sheet, chartObject, r: Variant;
begin
  sheet := fExcel.ActiveWorkBook.Sheets['Some sheet'];

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

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

- Tom Brunberg