如何在excel中创建一个插入图片的宏

1、先建立一个新excel工作表。

5、在视图—窗口中取消隐藏工作簿，如已取消，直接跳过该步骤。

7、插入匹配图片的语言，保存。其中“C:\兔脒巛钒图片位置”为我们匹配图片所处文件夹的位置。Sub insertPic()' Dir函数批量获取指定目录下所有文件名和内容'On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新Dim MR As RangeFor Each MR In SelectionIf Not IsEmpty(MR) And Dir("C:\图片位置\" & MR.Value & ".jpg") <> "" ThenMR.SelectSet m = Cells(MR.Row, MR.Column + 1)ML = m.LeftMT = m.TopMW = m.WidthMH = m.HeightActiveSheet.Shapes.AddShape(msoShapeRectangle, ML + 1.5, MT + 1.5, MW - 3, MH - 3).SelectSelection.ShapeRange.Fill.UserPicture _"C:\图片位置\" & MR.Value & ".jpg"End IfNextSet MR = NothingApplication.ScreenUpdating = True '开启屏幕更新End Sub

9、这个时候我们就制作完成了一个插入图片的宏。执行时，只需在开发工具—宏—选择已创建的宏—执行；系统就会自动插入图片。