当前位置：首页 - 正文

excel里怎样实现对很多批注内的字体做批量的更改,比如改变字体?

发布网友发布时间：2022-04-23 16:19

共3个回答

热心网友时间：2023-08-15 09:36

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

热心网友时间：2023-08-15 09:37

Sub test()
Dim mCom As Comment
For Each mCom In ActiveSheet.Comments
With mCom.Shape.TextFrame.Characters
With .Font
.Bold = msoTrue '改变粗细
.Size = 14 '改变大小
.ColorIndex = 3 '改变颜色
End With
End With
Next
End Sub
----
工具-宏-VB编辑器，插入－模块，将上面的程序复制，执行即可。

热心网友时间：2023-08-15 09:37

需要用VB

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

excel里怎样实现对很多批注内的字体做批量的更改,比如改变字体?

最新推荐

猜你喜欢

热门推荐