delphi - 使用 Delphi 6 将图片添加到 Excel 工作表

Question

我已经使用 Delphi 6 创建了一个 Excel 工作表。现在我必须向工作表添加图片。有人知道该怎么做吗？

Answer 1

你可以这样尝试:

procedure InsertPicture(ActiveSheet: OleVariant; ImageFilePath: string: ImageHeight, PictureTop: Integer); 
var
  Picture: OleVariant;
begin
  Picture := ActiveSheet.Pictures.Insert(ImageFilePath);
  Picture.Width := ImageHeight * Picture.Width / Picture.Height;
  Picture.Height := ImageHeight;
  Picture.ShapeRange.Left := 0;
  Picture.ShapeRange.Top := PictureTop;
  Picture.Placement := xlMove;
end;