用vba加批注 修改批注怎么弄

Sheets(1).Range("A1").AddComment '给A1添加批注

With Sheets(1).Range("A1").Comment

.Text "EvilFarmer:222" &Chr(10) &"" '批准内容

.Visible = True'可见

.Shape.Fill.UserPicture _'批注图片设置

"C:\Users\EvilFarmer\Desktop\adad.jpg"

.Shape.ScaleWidth 1.55, msoFalse, msoScaleFromTopLeft '宽度设置

.Shape.ScaleHeight 2.22, msoFalse, msoScaleFromTopLeft '高度设置

.Shape.IncrementLeft 116.25'位置设置,靠左的距离

.Shape.IncrementTop 102.75 '离顶部的距离

End With

先选中区域，再执行以下代码：

Sub Add_Comment()

For Each cel In Selection

If Not cel.Comment Is Nothing Then cel.Comment.Delete

cel.AddComment

cel.Comment.Text Text:="20100621：" &cel.Value

Next

End Sub

---