With Cells(1,1)
.NoteText "我的注释啊。。。。。。。。。。。。。。"
.Comment.Shape.TextFrame.AutoSize = False
.Comment.Shape.width = 400
End With
.comment.shape.width 是关键语句
To see a world in a grain of sand.
And a heaven in a wild flower
Hold infinity in the palm of your hand.
And eternity in an hour
一花一世界
一沙一天堂
掌中握无限
霎那成永恒