EXCEL2003-2010用VBA代码来快速实现Excel批注图片批量添加

用VBA代码来快速实现Excel批注图片批量添加，步骤如下：

1.准备图片

将需要添加为批注的图片全部复制到某个文件夹中，并以“名称.jpg”来命名。

2.在单元格中输入名称，名称必需和图片名称相对应。

3.用ALT+F11打开VBA编辑器中添加下面的代码：

Sub 添加图片批注()

On Error Resume Next Dim Cell As Range Dim Pics As String Dim ErrCell As String Selection.ClearComments For Each Cell In Selection

Pics = \E:\\图片文件夹\\\ & Cell.Value & \.jpg\ If Dir(Pics) = \

ErrCell = ErrCell & \ Else

With Cell.AddComment

.Shape.Fill.UserPicture PictureFile:=Pics .Shape.Height = 100 .Shape.Width = 100 End With End If Next

MsgBox \以下单元格没有图片哦！\End Sub

其中“E:\\图片文件夹\\”为图片所在文件夹，“ .Shape.Height = 100”指定批注图片的高度， “.Shape.Width = 100”指定批注的宽度，请根据实际情况进行更改。

4.选择所有包含名称的单元格，运行上述代码（用ALT+F8执行代码即可），即可为所有选中的单元格添加相应的图片批注。

注意在选择产品名称所在单元格时，仅仅选择所需单元格，而不能选择其他单元格，特别是在这些单元格不连续时，否则会出错。

5.如果要重新添加图片批注，必需先删除所有批注后再次运行VBA代码。方法是选择所有包含产品名称的单元格，鼠标右击，在弹出的快捷菜单中选择“删除批注”即可。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库EXCEL2003-2010用VBA代码来快速实现Excel批注图片批量添加在线全文阅读。