我的 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 参数时遇到了麻烦,所以每行的第二列有不同的图像?
如何获取特定单元格的顶部和左侧值?还是有更好的方法来做到这一点?
请帮忙。