' 批注框较多时, 使用宏会方便快捷. 当然, 你需要启用宏.
' 右击工作表标签>>查看代码>>在弹出的窗口中侵入下载代码:
Sub 备注框尺寸()
' 假设要调整工作表 Sheet1 中的批注框尺寸大小
Dim myComment As Comment
For Each myComment In Worksheets("Sheet1").Comments
myComment.Shape.TextFrame.AutoSize = True ' 自动批注框大小
' 如果需要, 也可以指定其大小
'myComment.Shape.Width = 180 '批注框宽度, 可选用适当值
'myComment.Shape.Height = 120 '批注框高度, 可选用适当值
Next
End Sub
' 代码复制完成后可按 F5 键执行.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024