Andy2483

¦^´_ 1# Scott090


    ÁÂÁ«e½úµoªí¦¹¥DÃD,«á¾Ç«Øij¤è®×¦p¤U
Option Explicit
Sub TEST()
Dim C As Comment
For Each C In ActiveSheet.Comments
   With C.Shape.TextFrame.Characters.Font
      .Name = "·L³n¥¿¶ÂÅé"
      .Size = 8
      .ColorIndex = 3
   End With
Next
End Sub

Andy2483

¦^´_ 3# Scott090


    ÁÂÁ«e½ú¦^´_,«á¾Ç¤£ ª¾¹D³o¤è­±ªºª¾ÃÑ,½Ð«e½ú­Ì«ü¾É