作者：乔山办公网日期：
返回目录：excel表格制作
回答： 不是想让批注显示，而是想提取批注中的知信息吗 追问： 对，就是把批注中的内容批量复制到文本中 回答： 这样可能比较麻烦，我想问，批注是怎样产生道的，可不可以不用批注呢 追问： 批注是陆续添加的，现在有几万条版了，需要一次性把批注全部复制到文本中。 回答： 采用别人方式或许会简单一点，权批注上都添加些什么信息呢 晴天 的感言： 谢谢了，你和我的理解不一样，我再想办法吧。
第一个问题解决办法：
调出审阅工具栏zd，点【显示所有批注内】按钮
第二个问题解决办法，如何调整显示框大容小？
用宏，代码如下：
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