作者:乔山办公网日期:
返回目录:excel表格制作
打开Excel开发工具选项百卡
点击 Visual Basic
左上角工程-VBAProject中点击右键——插入——模块
复制度一下代码到模块中
sub ChangeComment()
With activesheet
for i = 1 to .comments.count
.comments(i).shape.placement = xlmoveandsize
next i
end with
end sub
然后激活需要更改的工作表后,回到Visual Basic 界面将光标移到以上代码任意版位置,按F5键
友情提示:请先创建原工作簿副本,在副本中执行以上操作,权验证是否达到要求。
选择需要添加批注的单元格。
点击“审阅”菜单下的“新建批注”按钮。也可以按快捷键Shift+F2。
输入需要批注的文字。
确认后单元格右上角会多出一个红色标志,鼠标悬停在上面才会显示该批注。
知查看代码道---宏-运行,效果达到
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
选择需要添加批注的单元格。
点击“审阅”菜单下的“新建批注”按钮。也可以按快捷键Shift+F2。
输入需要批注的文字。
确认后单元格右上角会多出一个红色标志,鼠标悬停在上面才会显示该批注。