如何统一修改EXCEL中的批注格式?

2024-11-08 14:48:17
推荐回答(2个)
回答(1):

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编辑器窗口,现在来看一下效果图。

回答(2):

整个工作表修改-用VBA修改(搜于网上)
Sub
test()
Dim
mCom
As
Comment
For
Each
mCom
In
ActiveSheet.Comments
With
mCom.Shape.TextFrame.Characters
With
.Font
.Bold
=
msoFalse
.Size
=
14
.ColorIndex
=
3
End
With
End
With
Next
End
Sub
参考资料:http://www.officefans.net/cdb/archiver/?tid-75425.html