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

[李志林HZ]

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

[我不懂电脑]

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

[李志林HZ]

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

[|????|]

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

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

[李志林HZ]

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

[李志林HZ]

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"); 这些都试过，执行时分别都有错误。请有做过的指正一下，谢谢！

[|????|]

经试验，这样子成功：

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]

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

[|????|]

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

[李志林HZ]

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

[李志林HZ]

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]

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