-
本版专家分：0结帖率 96.3% -
使用Excel中range的copy和paste拷贝一个区域时，range中的文字都可以完整的拷贝过去，但是其中的图片无法拷贝，那位大虾知道怎么将这个区域中的图片也copy过去呀？问题解决马上给分，3x
-
本版专家分：18503
-
- 红花 2004年11月 Delphi大版内专家分月排行榜第一
-
- 黄花 2004年10月 Delphi大版内专家分月排行榜第二
-
-
ActiveSheet.Shapes("Picture 1").Select
Selection.Copy
Range("H22").Select
ActiveSheet.Paste
你把这个VBA代码转去DELPHI里面就可以了。
-
本版专家分：18503
-
- 红花 2004年11月 Delphi大版内专家分月排行榜第一
-
- 黄花 2004年10月 Delphi大版内专家分月排行榜第二
-
-
算了.还是我帮你转吧.............
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里面可以用了。
-
本版专家分：2564 -
我也不懂， 还是帮你UP！
-
本版专家分：3133 -
学民
