With rng'这个rng是单元格变量,自己需要哪个放哪个
.ClearComments
.AddComment Text:="XXX" ‘添加备注内容
.Comment.Shape.TextFrame.Characters.Font.Size = 12 ‘设置字体大小12号
.Comment.Shape.TextFrame.Characters.Font.Color = vbRed ‘设置字体颜色红色
.Comment.Shape.TextFrame.Characters.Font.Bold = True ‘设置字体是否加粗
End With
.ClearComments
.AddComment Text:="XXX" ‘添加备注内容
.Comment.Shape.TextFrame.Characters.Font.Size = 12 ‘设置字体大小12号
.Comment.Shape.TextFrame.Characters.Font.Color = vbRed ‘设置字体颜色红色
.Comment.Shape.TextFrame.Characters.Font.Bold = True ‘设置字体是否加粗
End With