ÁÂÁ«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§@ªÌ: Scott090 ®É¶¡: 2024-10-20 10:38