标题: 批量更改批注字体颜色的加载宏 [打印本页] 作者: lishengjun 时间: 2009-4-23 11:46 标题: 批量更改批注字体颜色的加载宏 为方便工作,闲暇时做了一个小的加载宏.传上来供大家分享.作者: anyday 时间: 2010-12-8 21:23
代码看不到。能不能分享下？作者: anyday 时间: 2010-12-8 21:23
密码多少？作者: anyday 时间: 2010-12-8 21:58
Sub CommentFont()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
With Cmt.Shape.TextFrame.Characters.Font
.Bold = msoFalse
.Size = 9
.ColorIndex = 3
End With
Next
End Sub 作者: joyark 时间: 2011-6-19 02:21
不知好用不