返回目录：excel表格制作
Sub AddABunch()
For Each cell In Selection
Pics = "z:\" & cell.Value & ".jpg"
With cell.AddComment
If Dir(Pics) = "" Then
Else
.Shape.Fill.UserPicture PictureFile:=Pics
.Shape.Height = 300
.Shape.Width = 200
End If
End With
Next cell
End Sub
_______________________________________
先全部选中含知有图片名字道的表格，然后运行版宏，其中Pics = "z:\" & cell.Value & ".jpg" 为图片地址。权
批注插入百图片步骤：
1、右键快捷菜单，插入批注；
2、在编辑状态度下，右键点击”批注“边框，选“设置批注格式”知
3、选“颜色与线条”，点击“道填充颜色”下回拉按钮，选“填充效果”
4、点击“图片”页，点击下面的“选择图片”按钮
5、按路径选择你的图片，最后“确定”即可答。
修改如下，照片文件夹路径可以通过对话框输入，也可将工作簿放在照片文件夹中，从而不必输入照片文件夹路径。代码通过预插入图片到单元格而获取图片尺寸，并将此用于批7a686964616fe78988e69d83338注框尺寸的设置。
Sub 插入批注图片()
Dim cell As Range, fd, t, w As Byte, h As Byte, Lj As String
Lj = InputBox("请输入JPG格式图片文件所在文件夹的路径：", , ThisWorkbook.Path) '获取路径,默认为当前文件夹路径
Selection.ClearComments
If Selection(1) = "" Then MsgBox "不能选择空白区。", 64, "提示": Exit Sub
On Error Resume Next
For Each cell In Selection
ActiveSheet.Pictures.Insert(Lj & "\" & cell.Text & ".jpg").Select
w = Selection.Width
h = Selection.Height
Selection.Delete
With cell.AddComment
.Visible = True
.Text Text:=""
.Shape.Select True
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = h * 3 '此处的3是指放大3倍显示，可自行调整
.Width = w * 3 '此处的3是指放大3倍显示，可自行调整
.LockAspectRatio = msoTrue
.Fill.UserPicture Lj & "\" & cell.Text & ".jpg"
End With
cell.Offset(1, 0).Select
.Visible = False
End With
Next
Exit Sub
End Sub
结果图如下：横向图片
纵向图片：
在excel里的批注里是不可以批量添加图片的，只能一次添加一张，具体步骤如下：
需要来准备的材料分别是：电脑、Excel表格。
1、首先打开需要编辑的Excel表格，右键单击批注的四边选择打开“设置批注格自式”。
2、然后在弹出来的窗口中点击打开“颜色与线条”。
3、然后在弹出来的窗口中点击打开颜色中的“zhidao填充颜色”。
4、然后在弹出来的窗口中点击打开图片中的“选择图片”。
5、然后点击选择想要的图片，点击打开。
6、然后就可以添加图片了。