修改批注操作

统一修改批注字体大小

2)单击菜单栏上的“插入”，打开的菜单单击“模块”命令

3)将下面的代码复制到模块框中:

Sub 批量修改批注()

Dim cm As Comment

For Each cm In ments 'sheet1是我们要批量修改批注的工作表，可以按需改变。

With cm.Shape.TextFrame.Characters.Font

.Name = "楷体"

.Size = 14

.ColorIndex = 3

End With

Next

End Sub

4)点击“运行”→运行子窗户→点击保存。

1)打开Excel工作簿文档，按下ALT+F11组合键调用出VBA编辑器

2)单击菜单栏上的“插入”，打开的菜单单击“模块”命令

3)将下面的代码复制到模块框中:

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

Dim Cmt As Comment

For Each Cmt In ments

ment.Shape.Width = 200

Next Cmt

End Sub

(4) 复制以下到宏，那么批注内容显示刚刚完整。

Sub aa()

For Each i In ments

i.Shape.TextFrame.AutoSize = True

Next

End Sub

5)运行→保存。