3个回答
展开全部
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编辑器窗口,现在来看一下效果图。
展开全部
整个工作表修改-用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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询