vba，添加批注如何设置添加批注的大小格式和字体

Sub test()

    If Not Range("A1").Comment Is Nothing Then Range("A1").Comment.Delete

    Range("A1").AddComment Text:="你好，这是用VBA添加的批注！"

    With Range("A1").Comment

         .Shape.TextFrame.Characters.Font.Size = 13  '设置字号13

         .Shape.TextFrame.Characters.Font.Name = "黑体"  '设置字体黑体

         .Visible = True  '显示批注

    End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 23 Or Target.Column = 24 Or Target.Column = 25 Then

Range(Target.Address).AddComment

Range(Target.Address).Comment.Visible = False

Range(Target.Address).Comment.Text Text:="Administrator:" &Chr(10) &Year(Now()) &"年" &Month(Now()) &"月" &Day(Now()) &"日"

End If

End Sub

在你这个工作表里面添加这个代码

---