作者:乔山办公网日期:
返回目录:excel表格制作
选择需要添加批注的单元格。
点击“审阅”菜单下的“新建批注”按钮。也可以按快捷键Shift+F2。
输入需要批注的文字。
确认后单元格右上角会多出一个红色标志,鼠标悬停在上面才会显示该批注。
1、打开Excel工作簿文档,按下ALT+F11组合键调用出VBA编辑器。
2、单击菜单zd栏上的“插入”,打开的菜单单击“模块”命令。
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编辑器窗口,现在看一下效果图即可。
桌面-属性-外观-高级--项目,点下拉菜单选“工具提示”,下面的字体设为你喜欢的字体,如宋体,大小处设为>9 的值,EXCEL默认为9。
查zhidao看代码---宏-运行内,效果达到
Sub 批量修改容批注框大小()
Dim Cmt As Comment
For Each Cmt In ActiveSheet.Comments
Cmt.Parent.Comment.Shape.Width = 300
Cmt.Parent.Comment.Shape.Height = 100
Next Cmt
End Sub