整体修改excel批注字体大小，表中的批注太多了，一个一个改...-excel修改批注框,excel批注框大小设置

Sub test()

 

Dim cmt As Comment

 

For Each cmt In ActiveSheet.Comments

 

With cmt

 

.Shape.TextFrame.AutoSize = True

 

End With

 

Next

 

End Sub

 

使用方法百： 

1、Sheet上右击“查看代码”，度打开VB编辑器知；

2、把上面的代码贴进来，然后道关回闭VB窗口；

 

3、返回要修正的sheet，ALT+F8，执答行。

1.进行操作时先开启显示扩展名的设置：双击“计算机”，单击“组织”菜单中的“抄文件夹和搜索选项”。
2.在打开的“文件夹选项”对话框切换到“查看”选项卡，把高级设置列表中的“隐藏已知文件类型的扩展名”复选框去掉，单击“确定”按钮。
3.右击要批量修改批注部分文字的Excel工作表，打开的右键菜单单击“重命名”命令，将扩展名“xlsx”修改为“zip”，按回车键。
4.弹出以下提示对话框，单击“是”。
5.双击zip压缩包，进入“xl”文件夹，知双击打开“comments1.xml”文件。
6.鼠标右击打开的页面，弹出的菜单选择“查看源文件”命令。
7.弹出源代码的记事本窗口，单击“编辑”菜单中的“替换”命令。
8.在“查找内容”文本框输入“blwbbs”（即需要修改的内容），在“替换为”文本框输入“新内容”，然后单击“全部替换”按钮。
9.关闭并道保存记事本：单击右上角的“关闭”按钮，弹出的对话框单击“保存”按钮即可。
10.压缩包那里会提示“文件"comments1.xml"已经被修改。希望在压缩文件中更新它吗？”，单击“是”。
11.最后将扩展名zip改回原来的xlsx即可。
ALT+F11——来F7——粘贴如下代码（注自意换行）——zdF5运行
Sub mysub()
Dim rng As Range
For Each rng In Sheets(1).UsedRange.Cells
If Not rng.Comment Is Nothing Then
rng.Comment.Shape.Select
Selection.ShapeRange.Width = 150
Selection.ShapeRange.Height = 50
End If
Next
End Sub

首先zhidao打开EXCEL 按ALT+F11键 调出VBA 界面 然后插入菜单 下面有个模块你插入模块 然后复制代码回
复制代码走下面开始
Sub pz()
Dim pz As Comment
For Each pz In ActiveSheet.Comments
pz.Visible = True
pz.Shape.Height = 150
pz.Shape.Width = 150
Next
End Sub

代码复制到上面
150 是我假设的大小答你要是觉得大小 不好就改这里的两个150就好了