Sub 插入透明批注()
    Selection.AddComment
    Selection.Comment.Visible = False
    Dim XS As Worksheet
    For i = 1 To ActiveSheet.Comments.Count
        ActiveSheet.Comments(i).Text "透明批注"
        ActiveSheet.Comments(i).Shape.Fill.Visible = msoFalse
    Next
End Sub

Sub 插入透明批注()
    Selection.AddComment
    Selection.Comment.Visible = False
    Dim XS As Worksheet
    For i = 1 To ActiveSheet.Comments.Count
        ActiveSheet.Comments(i).Text "透明批注"
        ActiveSheet.Comments(i).Shape.Fill.Visible = msoFalse
    Next
End Sub