WPS excel批量导出浮动图片 宏脚本

excel内容如下：

宏脚本如下：

function 导出图片(){

for(pic of ActiveSheet.Shapes){ //遍历当前表格中的所有图片

if(pic.Type == msoPicture){ //判断是否为图片类型，避免导出形状按钮等

nm = pic.TopLeftCell.Offset(0, -1) //图片左侧单元赋值给变量nm，标识码作为图片名

p = "D:\\tenantlogo\\" + nm + ".png" //图片地址

pic.SaveAsPicture(p)

}

}

}