With Sheets(1).Range("A1:A50")
.Comment.Text ""
.Comment.Visible = True
.Comment.Shape.Fill.UserPicture _ '这是设置图片
"C:\Users\Administrator\Desktop\Snap1.jpg"
.Comment.Shape.IncrementLeft 96# '这是离左边距离
.Comment.Shape.IncrementTop 15# '这是离顶部距离
.Comment.Shape.ScaleWidth 2.16, msoFalse, msoScaleFromTopLeft '设置宽度
.Comment.Shape.ScaleHeight 2.25, msoFalse, msoScaleFromTopLeft '设置高度
End With
录制宏吧,看看宏代码你就明白了。。
右键——设置格式