1

我的 Delphi 6 程序需要在我的 Excel Sheet 的每一行放置一个图像。我可以用我从另一篇文章中读到的东西将图片插入到固定位置。

procedure insertImages(ActiveSheet: OleVariant; ImageFilePath: String; ImageHeight, PictureTop, PictureLeft: Integer);
var
  Picture: OleVariant;
begin
    try
       Picture := ActiveSheet.Pictures.Insert(ImageFilePath);
       Picture.Width := ImageHeight * Picture.Width /Picture.Height;
       Picture.Height := ImageHeight;
       Picture.ShapeRange.Left := PictureLeft;
       Picture.ShapeRange.Top := PictureTop;
       Picture.Placement := xlMove;
    except
    end; //try
end; //insertImages;

上面的代码工作正常,但是我在传递 PictureTop 和 PictureLeft 参数时遇到了麻烦,所以每行的第二列有不同的图像?

如何获取特定单元格的顶部和左侧值?还是有更好的方法来做到这一点?

请帮忙。

4

1 回答 1

4

例如,如果您使用;

ActiveSheet.Cells[2, 2].Select;
ActiveSheet.Pictures.Insert(ImageFileName);

那么图片的顶部等于 Cell[2, 2] 的顶部,图片的左侧等于 Cell[2, 2] 的左侧

于 2010-08-16T06:33:52.840 回答