批量插入图片至WPS表格的简易方法 点击使用AI助手 了解更多
⭐【案例】
下图表格A列为货号，现在需要将“图片”文件夹中的图片批量插入到B列相应位置。
⭐【操作效果】
⭐【JSA代码】
具体代码如下，可按ALT+F11打开WPS宏编辑器，复制下面的代码粘贴到编辑器中。
function 批量插入图片(){
p = ThisWorkbook.Path + "/图片/" //图片文件夹
n = Range("a"+Rows.Count).End(3).Row //最后数据行号
for( i = 2 ;i<= n;i++){ //从第2行循环到最后一行
rg1 = Cells.Item(i, 1) //将第一列赋值给变量rg1（图片名）
rg2 = Cells.Item(i, 2) //将第二列赋值给变量rg2（图片位置）
f=p + rg1 + ".jpg" //图片路径
l=rg2.Left + 1 //图片单元格左边位置
t=rg2.Top + 1 //图片单元格上方位置
w=rg2.Width - 1 //图片宽度
h=rg2.Height - 1 //图片高度
if(Dir(f)){ //判断文件夹中图片是否存在
//插入图片
ActiveSheet.Shapes.AddPicture(f,1,1, l ,t , w, h)
}
}
}
function 批量删除图片()
{
for(sp of ActiveSheet.Shapes){ //遍历表格中的图片对象
sp.Delete() //删除图片
}
}
⭐【素材下载】
https://kdocs.cn/l/ccWFTfvdgpOi
原文链接：https://bbs.wps.cn/topic/9714
