Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/delphi/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何将Excel中的元素(图表)定位到某个单元格?_Excel_Delphi - Fatal编程技术网

如何将Excel中的元素(图表)定位到某个单元格?

如何将Excel中的元素(图表)定位到某个单元格?,excel,delphi,Excel,Delphi,我在Excel中有一个图表,我需要将其定位(移动)到某个单元格中 我在寻找以下线索: procedure TMyExcelClass.MyProcedure; var sheet, chartObject: Variant; begin sheet := fExcel.ActiveWorkBook.Sheets['Some sheet']; chartObject := sheet.ChartObjects[1]; chartObject.Left := <Left of

我在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;
procedure TMyExcelClass.MyProcedure;
变量
图纸,图表对象:变体;
开始
工作表:=fExcel.ActiveWorkBook.Sheets['Some sheet'];
chartObject:=sheet.ChartObjects[1];
chartObject.Left:=
chartObject.Top:=
结束;

如何将图表对象定位到特定单元格?(考虑到单元格可能具有不同的宽度和高度)

创建要定位图表的单元格范围。然后将范围的左侧和顶部属性指定给图表对象

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;