excel插入图片（利用vba）

1． 按ALT+F11

2． 插入模块
3． 单元格的大小调整为照片插入的大小
4． 复制下面vba代码，红字前的属性注意修改，红字不需删除
-------------------------------------------------复制分割线以下内容-----------------------------------------------------------------------------
Sub 批量插入图片()
Dim address As String
Dim cellcolumn, piccolumn As Integer
On Error Resume Next
address = “E:\商品图片” '图片文件夹所在的位置，根据图片位置修改
cellcolumn = 1 '设置项目名称所在列，根据自己实际情况修改
piccolumn = 2 '设置插入图片所在第几列，根据自己实际情况修改
Application.ScreenUpdating = False
For I = 2 To Range(“A65536”).End(xlUp).Row '数字2是设置开始填充图片的行号是第二行，根据实际情况修改
Cells(I, piccolumn).Select
Cells(I, piccolumn) = Cells(I, cellcolumn) '图片所在单元格必须有数据才能支持排序
ActiveSheet.Shapes.AddShape(msoShapeRectangle, (Cells(I, piccolumn).Left + 2.5), (Cells(I, piccolumn).Top + 2), (Cells(I, piccolumn).Width - 5), (Cells(I, piccolumn).Height - 4)).Fill.UserPicture address & “” & Cells(I, cellcolumn).Text & “.jpg”
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Rotation = 0#
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Next I
Application.ScreenUpdating = True '打开屏幕更新
End Sub
-----------------------------------------------复制分割线以上内容------------------------------------------------------------------------------
5． 按Ctrl+S，保存（弹出窗口 点击是，确定），关闭窗口，回到要插入图片的sheet
6． 视图—宏—查看宏，选择【批量插入图片】，执行