1

Delphi 6 プログラムでは、Excel シートの各行に画像を配置する必要があります。別の投稿から読んだもので、写真を固定位置に挿入できました。

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 パラメータを渡して各行の 2 列目に異なる画像を表示するのに問題がありますか?

特定のセルの上と左の値を取得するにはどうすればよいですか? または、これを行うより良い方法はありますか？

助けてください。

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 に答える