excel批量修改批注框大小

点击选中批注框的边框，点击鼠标右键，在d出的菜单选项中点击选择【设置批注格式】选项。

如下图，通过上一步骤，系统中d出了【设置批注格式】对话框。

在通过上一步骤，系统中d出的【设置批注格式】对话框中，点击选择[对齐]功能选项卡，然后勾选[自动调整大小]选项，完成后点击【确定】按钮。

返回到工作表中，通过以上 *** 作步骤，批注框的大小就随同文字内容的多少进行了自动调整

步骤/方法

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编辑器窗口，现在让我们来看一下效果图

END

Excel批量修改批注框大小，统一尺寸

实现这个效果的方法跟上面的步骤是一样的，只需把上面的代码更改成下面的代码即可，当中的“Width = 200”，这个数值可自行更改成想要的批注框宽度

Sub 批量修改批注框大小()

Dim Cmt As Comment

For Each Cmt In ActiveSheet.Comments

Cmt.Parent.Comment.Shape.Width = 200

Next Cmt

End Sub

2

单击“运行”按钮，再一次让我们来看一下效果效果图

这是宽度为500的效果图

---