操纵Excel时怎样copy图片呀

[yqdeng]

使用Excel中range的copy和paste拷贝一个区域时，range中的文字都可以完整的拷贝过去，但是其中的图片无法拷贝，那位大虾知道怎么将这个区域中的图片也copy过去呀？问题解决马上给分，3x

[ksaiy]

ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Range("H22").Select
ActiveSheet.Paste

你把这个VBA代码转去DELPHI里面就可以了。

[coeltdit]

我也不懂， 还是帮你UP！

[BigAngell]

学民

[ksaiy]

算了.还是我帮你转吧.............

procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelApp.ActiveSheet.Pictures.Insert('D:\Documents and Settings\Administrator\My Documents\My Pictures\2004212231591.jpg').Select;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ExcelApp.ActiveSheet.Shapes.Item(ExcelApp.ActiveSheet.Shapes.Count).Select;
ExcelApp.Selection.Copy;
ExcelApp.Range['H22','H22'].Select;
ExcelApp.ActiveSheet.Paste;
end;

我在DELPHI7+Office XP里面可以用了。

[postfxj]

先把你的過程產生巨集，然後把其代碼靈活運用到delphi中來，是可以的。