Excel VBA批量插入图片批注

Excel VBA批量插入图片批注并修改长宽高

Sub 插入图片批注()

Dim Cmt As Comment

Dim a

a = MsgBox("使用说明：请确认您的图片文件存在与此文件同一目录下的名称为pic的文件夹中。并选中需要要添加图片批注的单元格。")

If a = 1 Then

On Error Resume Next

Dim MR As Range

Dim Pics As String

For Each MR In Selection

If Not IsEmpty(MR) Then

MR.Select

MR.AddComment

MR.Comment.Visible = False

MR.Comment.Text Text:=""

MR.Comment.Shape.Fill.UserPicture PictureFile:=ActiveWorkbook.Path & "\pic\" & MR.Value & ".jpg"

End If

Next

End If

'修改批注长宽

For Each Cmt In ActiveSheet.Comments

Cmt.Parent.Comment.Shape.Width = 800

Cmt.Parent.Comment.Shape.Height = 500

Next Cmt

End Sub