如何控制excel中图片的尺寸
我用以下程序将数据库中的一个图片粘贴到了excel中,可是在excel中显示的是图片的原始尺寸,我想把图片的尺寸设置成我想要的尺寸,请问有什么办法,很急!!!
procedure Tf_form.Button1Click(Sender: TObject);
var
aSheet:Variant;
begin
try
ExcelApplication1.Visible[0] := true;
ExcelApplication1.WorkBooks.Add(xlWBATWorksheet,0);
aSheet:=ExcelApplication1.Worksheets.Item[1];
if dbimage1.picture.Graphic<>nil then
begin
dbimage1.CopyToClipboard;
aSheet.Range['E1'].PasteSpecial;
end;
finally
excelapplication1.Disconnect;
end;
end;