WPS的Excel表格怎样使用宏代码去批量插入图片
工具/原料
电脑
方法/步骤
1、首先,打开一个已经有对应图片名称列的表格,如下图
2、假设我们是要对主兔脒巛钒图列插入图片,那么接下来我们点击图片名称列;假设我们的图片命名是以货号命名的,那么我们就是要点击货号这一列,如下图
3、接着我们就是要点击开发工具栏,如下图
4、然后,去点代码,弹出如下窗口
5、对弹出窗口,点插入,点模块,然后弹出下图
6、接下来,就是在这个编辑栏,编辑批量导入图片的代码
7、完成代码,我们就可以点击运行了,如下图标识
8、然后对弹出窗口选择存储以货号命名图片的文件夹
9、接下来就是选择图片插入Excel表格的位置,瘫蝠熨夯我上面表格主图是在货号的右边,所以我就填4,确定,就开始执行批量导入图片了。
10、代码提示:SubAAA()OnErrorResumeNext锓旆痖颧DimTAsString,FDDimMRAsRan爿讥旌护geSetFD=Application.FileDialog(msoFileDialogFolderPicker)'允许用户选择一个文件夹IfFD.Show=-1ThenT=FD.SelectedItems(1)'选择之后就记录这个文件夹名称ElseExitSub'否则就退出程序EndIfp=InputBox("请选择图片插入位置,上,下,左,右依次用1,2,3,4代替","请选择位置")Setfso=CreateObject("scripting.filesystemobject")ForEachMRInSelectionIfNotIsEmpty(MR)Thenpic=T&"\"&MR.Value&".jpg"Iffso.FileExists(pic)ThenMR.SelectIf(p=1)Then'上ML=MR.LeftMT=MR.Top-MR.HeightMW=MR.WidthMH=MR.HeightElseIf(p=2)Then'下ML=MR.LeftMT=MR.Top+MR.HeightMW=MR.WidthMH=MR.HeightElseIf(p=3)Then'左ML=MR.Left-MR.WidthMT=MR.TopMW=MR.WidthMH=MR.HeightElseIf(p=4)Then'右ML=MR.Left+MR.WidthMT=MR.TopMW=MR.WidthMH=MR.HeightEndIfActiveSheet.Shapes.AddShape(msoShapeRectangle,ML,MT,MW,MH).SelectSelection.ShapeRange.Fill.UserPicturepic'当前文件所在目录下以当前单元内容为名称的.jpg图片EndIfEndIfNextEndSub