求EXCEL插入图片的能用的代码解决方案
求EXCEL插入图片的能用的代码
如题，需要在导出EXCEL的时候在EXCEL中插入一个或多个图片，现求一段代码，能在EXCEL指定的位置放置一个图片即可。有这方面的代码的请帮帮忙，把可用的代码发一下。谢谢！
------解决思路----------------------
Variant Chart;
Chart = ExcelApp.Exec(PropertyGet("Charts")).Exec(Function("Add"));
ExcelApp.Exec(PropertySet("Visible") << true);
Chart.Exec(PropertySet("Type") << -4100);
------解决思路----------------------
经试验，这样子成功：
如题，需要在导出EXCEL的时候在EXCEL中插入一个或多个图片，现求一段代码，能在EXCEL指定的位置放置一个图片即可。有这方面的代码的请帮帮忙，把可用的代码发一下。谢谢！
------解决思路----------------------
Variant Chart;
Chart = ExcelApp.Exec(PropertyGet("Charts")).Exec(Function("Add"));
ExcelApp.Exec(PropertySet("Visible") << true);
Chart.Exec(PropertySet("Type") << -4100);
------解决思路----------------------
经试验，这样子成功：
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));