Sub 插入圖片批注()

Dim a

a = MsgBox("使用說明：1、請確認(rèn)您的圖片文件存在與此文件同一目錄下的名稱為pic的文件夾中。2、選中要添加圖片批注的單元格。", vbOKCancel, "無雙制作2017-6-12")

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

End Sub