用vba了。1,alt+f11,插入,模块,把下面代码复制到模块1里2,关闭代码窗口,alt+f8,执行宏“统一批注格式”SUb 统一批注格式()dim biao as worksheetFor i = 1 to activesheet.comments.countactivesheet.comments(i).shape.textframe.Autosize = true '调整批注大小activesheet.comments(i).shape.height = 30 '批注高度activesheet.comments(i).shape.wIDth = 50 '批注宽度activesheet.comments(i).shape.visible = false '隐藏批注nextend SUb
我要回答关注问题
1个回答
金图
查看代码---宏-运行,效果达到 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