Excel 怎么一键改字体

发布网友

我来回答

2个回答

热心网友

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

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

3、将下面的代码复制到模块框中。

Sub 批量修改批注()Dim cm As CommentFor Each cm In Sheet1.Comments 'sheet1是我们要批量修改批注的工作表,可以按需改变。With cm.Shape.TextFrame.Characters.Font.Name = "楷体".Size = 14.ColorIndex = 3End WithNextEnd Sub

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

5、退出VBA编辑器窗口,现在看一下效果图即可。

热心网友

可以录制一个宏,设置快捷键

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