第一个问题解决办法:
调出审阅工具栏,点【显示所有批注】按钮
第二个问题解决办法,如何调整显示框大小?
用宏,代码如下:
Sub Macro1()
For Each cmt In ActiveSheet.Comments
With cmt
.Shape.TextFrame.AutoSize = True
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 100
.Shape.Height = (lArea / 100) * 1.2
End With
Next
End Sub
点击审阅选项卡,显示所有批注