插入图片
命令说明
在工作表中插入图片,如指定图片名称存在,则替换已存在图片
命令原型
Excel.InsertImage(objExcelWorkBook,sheet,sFilePath,sName,fLeft,fTop,fWidth,fHeight)
命令参数
参数 | 必选 | 类型 | 默认值 | 说明 |
---|---|---|---|---|
objExcelWorkBook | True | expression | objExcelWorkBook | 使用 "打开Excel工作簿"命令(Excel.OpenExcel) 或 "绑定Excel工作簿" 命令(Excel.BindBook)返回的工作簿对象 |
sheet | True | string | "Sheet1" | 如果使用字符串,则表示指定工作表的名字;使用数字,则表示指定工作表的顺序(从0开始) |
sFilePath | True | path | '''C:\Users''' | 要插入的图片文件路径 |
sName | True | string | "" | 默认值为空字符串,由Excel自动编排。如需删除或者更新相应图片,建议修改名字 |
fLeft | True | expression | 0 | 图片距离左边的边距 |
fTop | True | expression | 0 | 图片距离顶部的边距 |
fWidth | True | expression | 100 | 图片的宽度,按原图的百分比计算 |
fHeight | True | expression | 100 | 图片的高度,按原图的百分比计算 |
运行实例
/*********************************插入图片***************************************
命令原型:
Excel.InsertImage(objExcelWorkBook,"Sheet1",'''C:\Users''',"",0,0,100,100)
入参:
objExcelWorkBook--Excel工作簿对象(使用 "打开Excel"命令(Excel.OpenExcel) 打开的工作簿或使用"绑定Excel"命令(Excel.BindBook)绑定的工作簿对象)。
sheet--如果使用字符串,则表示指定工作表的名字;使用数字,则表示指定工作表的顺序(从0开始)。
sFilePath--要插入的图片文件路径。
sName--默认值为空字符串,由Excel自动编排。如需删除或者更新相应图片,建议修改名字。
fLeft--图片距离左边的边距。
fTop--图片距离顶部的边距。
fWidth--图片的宽度,按原图的百分比计算。
fHeight--图片的高度,按原图的百分比计算。
注意事项:
该命令不能单独使用,需配合 "打开Excel"命令(Excel.OpenExcel) 或"绑定Excel"命令(Excel.BindBook)一起使用才能正常使用,单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel(@res"测试.xlsx",True,"Excel","","")
Excel.InsertImage(objExcelWorkBook,"Sheet1",@res"示例图片.png","示例",0,0,100,100)
TracePrint "插入图片:Excel对象Sheet1工作表插入一张图片命名为'示例'"
Excel.CloseExcel(objExcelWorkBook,True)