如何在Excel中批量修改批注格式

如题所述

步骤/方法

1
打开Excel工作簿文档,按下ALT+F11组合键调用出VBA编辑器

2
单击菜单栏上的“插入”,打开的菜单单击“模块”命令

3
将下面的代码复制到模块框中
Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表,可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub

4
单击工具栏绿色的“运行”按钮或直接按F5键

5
退出VBA编辑器窗口,现在让我们来看一下效果图

END
Excel批量修改批注框大小,统一尺寸

实现这个效果的方法跟上面的步骤是一样的,只需把上面的代码更改成下面的代码即可,当中的“Width = 200”,这个数值可自行更改成想要的批注框宽度
Sub 批量修改批注框大小()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width = 200
Next Cmt
End Sub

2
单击“运行”按钮,再一次让我们来看一下效果效果图
这是宽度为500的效果图
温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-10-25
步骤/方法
打开Excel工作簿文档,按下ALT+F11组合键调用出VBA编辑器

单击菜单栏上的“插入”,打开的菜单单击“模块”命令

将下面的代码复制到模块框中
Sub 批量修改批注()
Dim cm As Comment
For Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表,可以按需改变。
With cm.Shape.TextFrame.Characters.Font
.Name = "楷体"
.Size = 14
.ColorIndex = 3
End With
Next
End Sub

单击工具栏绿色的“运行”按钮或直接按F5键

5
退出VBA编辑器窗口,现在让我们来看一下效果图本回答被网友采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网