求代码通过OLE将图片插入到Excel中.

kwokwinglau 2005-01-31 04:25:10

假设已Variant Ex,Wb,Sh1;

Excel的宏是这样子:
Range("C9").Select
ActiveSheet.Pictures.Insert("E:\My documents\My Pictures\12.gif").Select

如何转为BCB语句呢？

不想使用下面通过剪贴板的处理方法:
http://community.csdn.net/Expert/topic/3755/3755386.xml?temp=.3996698

...全文

263 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzscll 2005-02-02

打赏
举报

老妖得不错！！！

OLE专业户来了！！！

String strXlsFile = "C:\\123\\123.xls";
String strImgFile = "C:\\123\\123.bmp";

Variant vExcelApp = Variant::CreateObject("Excel.Application");
vExcelApp.OlePropertySet("Visible", true);
vExcelApp.OlePropertyGet("WorkBooks")
.OleFunction("Open", strXlsFile.c_str());
vExcelApp.OlePropertyGet("Cells", 3, 4).OleFunction("Select");
vExcelApp.OlePropertyGet("ActiveSheet")
.OlePropertyGet("Pictures")
.OleFunction("Insert", strImgFile.c_str());

// 后续处理代码略

kwokwinglau 2005-02-02

打赏
举报

高就是高.
我要学会举一反三,不要再送分给老妖了.

kwokwinglau 2005-02-02

打赏
举报

都是星星...

yesry 2005-02-01

打赏
举报

没玩过。微软的东西一向都不感冒。

JetKingLau 2005-01-31

打赏
举报

声明：偶是来灌水，不是来抢分滴，楼主不要给分给偶，

(为避免引起误会)

JetKingLau 2005-01-31

打赏
举报

老妖既是挖煤专业户，又是OLE专业户，利害利害，PFPF！！！

ccrun.com 2005-01-31

打赏
举报

OLE专业户来了！！！

String strXlsFile = "C:\\123\\123.xls";
String strImgFile = "C:\\123\\123.bmp";

Variant vExcelApp = Variant::CreateObject("Excel.Application");
vExcelApp.OlePropertySet("Visible", true);
vExcelApp.OlePropertyGet("WorkBooks")
.OleFunction("Open", strXlsFile.c_str());
vExcelApp.OlePropertyGet("Cells", 3, 4).OleFunction("Select");
vExcelApp.OlePropertyGet("ActiveSheet")
.OlePropertyGet("Pictures")
.OleFunction("Insert", strImgFile.c_str());

// 后续处理代码略