Excel如何批量修改批注文字格式

　　如果想要实现将Sheet1工作表中所有的批注文字批量更改为：楷体、14号、颜色为红色的效果，该怎么做呢，具体步骤如下所述：

　　第一步、打开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键

　　第五步、退出VBA编辑器窗口，现在来看一下效果图

热门标签：dede模板 / destoon模板 / dedecms模版 / 织梦模板