《在excel中自动批量插入相片的方法.docx》由会员分享，可在线阅读，更多相关《在excel中自动批量插入相片的方法.docx（2页珍藏版）》请在三一办公上搜索。
1、在excel中自动批量插入相片的方法在excel中批量插入相片的方法和代码 1.首先要在需要插入相片的单元格输入相片名，如张三或李四，后面不要带“.jpg”了，因为在代码中已经设置，然后修改代码中的a1:a3为你自己需要批量插入相片的单元格范围。 2、在excel文档的同级目录下建立“照片”文件夹，将需要插入的相片复制到“照片”文件夹中， 3、打开excel文档，点 工具-宏-宏安全性-设为“低”-确定-关闭excel文档。 4、再打开excel文档，对工作薄标签点右键-查看代码，对左上边出现的空白处点右键-插入-模块，然后双击新插入的模块，在右边出现的窗口中，将你修改过插入相片的单元格范围的
2、代码复制到里面 5、保存一下，可别忘了，否则刚才的工作可能就会白做了，点 工具-宏-宏双击“插入相片”以运行代码。 6、看看，相片是不是已经插进去了？呵呵，不难吧？多练习几遍。 代码： Sub 插入相片 On Error Resume Next Sheets(1).Range(a1:a3).Select Dim MR As Range For Each MR In Selection If Not IsEmpty(MR) Then MR.Select ML = MR.Left MT = MR.Top MW = MR.Width MH = MR.Height ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select Selection.ShapeRange.Fill.UserPicture ActiveWorkbook.Path & 照片 & MR.Value & .jpg 当前文件所在目录下以当前单元内容为名称的.jpg图片 End If Next End Sub
