求EXCEL插入图片的能用的代码

2015-01-19 11:02:36 477 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

excel插入图片（利用vba） 1．按ALT+F11 2．插入模块 3．单元格的大小调整为照片插入的大小 4．复制下面vba代码，红字前的属性注意修改，红字不需删除 -------------------------------------------------复制分割线以下内容----------------------------------------------------------------------... 阅读详情

如题，需要在导出EXCEL的时候在EXCEL中插入一个或多个图片，现求一段代码，能在EXCEL指定的位置放置一个图片即可。有这方面的代码的请帮帮忙，把可用的代码发一下。谢谢！

...全文

如何利用EXCEL批量插入图片（3）呈现如图。阅读详情

李志林HZ

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

李志林HZ 2015-01-21

打赏
举报

各位高手麻烦帮忙下，谢谢！

李志林HZ 2015-01-21

打赏
举报

Variant vShape,vShapeRange; vSheet.OlePropertyGet("Cells",8+i,1).OleProcedure("Select");//选择某个格子 vShapeRange = vSheet.OlePropertyGet("Cells",8+i,1);//设置区域为选定的格子 vShape = vSheet.OlePropertyGet("Pictures").OleFunction("Insert",WideString(sTemp));//设定图片对象 vShape.OlePropertySet("Top",vShapeRange.OlePropertyGet("Top"));//设置图片对象 vShape.OlePropertySet("Left",vShapeRange.OlePropertyGet("Left")); vShape.OlePropertySet("Height",vShapeRange.OlePropertyGet("Height")); vShape.OlePropertySet("Width",vShapeRange.OlePropertyGet("Width")); 解决了。谢谢各位！

李志林HZ 2015-01-19

打赏
举报

Variant pic； pic.Left = 100; pic.Top = 100; 简单的代码，为什么DELPHI可以，BCB就不能通过？

|????| 2015-01-19

打赏
举报

位置和大小，我觉得继续在Excel里录制一下调整大小和位置的宏，根据宏代码来转换，可以解决。

李志林HZ 2015-01-19

打赏
举报

图片是可以插入EXCEL，不过被无限放大了，定位还是个问题。我需要将图片定位放到EXCEL中的某个格子中。摸索中，仁兄如果有好办法请告诉一下，谢谢!

|????| 2015-01-19

打赏
举报

经试验，这样子成功：

UnicodeString sTemp  = "E:\\360云盘\\其他\\图片\\Porg\\Mine\\num1.bmp";

	newxls.OlePropertyGet("Sheets", 1).OleProcedure("Select");
	sh=newxls.OlePropertyGet("ActiveSheet");
	sh.OlePropertyGet("Pictures").OleFunction("Insert",WideString(sTemp));

李志林HZ 2015-01-19

打赏
举报

vSheet.OlePropertyGet("Picture").OleFunction("Insert","D:\\0002.jpg"); vSheet.OleFunction("Insert","d:\\0002.jpg"); vSheet.OlePropertyGet("Cells",1,1).OleFunction("Picture","Insert","D:\\0002.jpg"); 这些都试过，执行时分别都有错误。请有做过的指正一下，谢谢！

李志林HZ 2015-01-19

打赏
举报

.......宏代码我也知道，DELPHI代码我也找到了一些，但是就连最接近的DELPHI代码转换过来都没用，所以才上来求BCB代码。

|????| 2015-01-19

打赏
举报

录制了一段宏代码，照此转换即可：

    ActiveSheet.Pictures.Insert("E:\360云盘\其他\图片\Porg\Mine\num1.bmp").Select

李志林HZ 2015-01-19

打赏
举报

------>Chart.Exec(PropertySet("Type") << -4100); 执行到这句时，提示“无效的参数数目”；而且，貌似你这个是一个柱形图类的东西，我需要的是一个JPG、JPEG、IMG类的图片放置到EXCEL上面，就好像一个网格一样，我要在其中一个格子里面放置一个图片。

我不懂电脑 2015-01-19

打赏
举报

Variant Chart; Chart = ExcelApp.Exec(PropertyGet("Charts")).Exec(Function("Add")); ExcelApp.Exec(PropertySet("Visible") << true); Chart.Exec(PropertySet("Type") << -4100);

求EXCEL插入图片的能用的代码

相关推荐