批量更改批注字体颜色的加载宏

lishengjun · 发表于 2009-4-23 11:46:40

为方便工作,闲暇时做了一个小的加载宏.传上来供大家分享.

anyday · 发表于 2010-12-8 21:58:13

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

anyday · 发表于 2010-12-8 21:23:33

代码看不到。能不能分享下？

anyday · 发表于 2010-12-8 21:23:48

密码多少？

joyark · 发表于 2011-6-19 02:21:32

不知好用不

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 批量更改批注字体颜色的加载宏

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)