批注批量添加图片

nnsea

'修改批注
Sub 修改批注()
Range("a2").AddComment '添加批注
[a2].Comment.Shape.Height = 50 '设置批注高度
[a2].Comment.Shape.Width = 40 '设置批注宽度
[a2].Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\7pic\阿汤.png"
End Sub

Sub 批量将批注增加背景()
For Each Rng In Selection
paths = ThisWorkbook.Path & "\7pic\" & Rng.Value & ".png"
    Rng.ClearComments
    Rng.AddComment
    Rng.Comment.Shape.Height = 50
    Rng.Comment.Shape.Width = 40 '设置批注宽度
Rng.Comment.Shape.Fill.UserPicture paths
Next
End Sub