操纵Excel时怎样copy图片呀

Question

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

Answer 1

ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Range("H22").Select
ActiveSheet.Paste你把这个VBA代码转去DELPHI里面就可以了。

Answer 2

算了.还是我帮你转吧.............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里面可以用了。

Answer 3

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