如何将批注内容都显示出来

朝雨浥轻尘 · 发表于 2012-4-13 15:24

我的表格中有好多批注，现在想查看批注内容，就是现在看的有的批注能完全现实出来，有的需要拉一下边框，我想问一下有什么办法可以让所有的批注不用一个一个拉都能现实出来的办法？

AVEL · 发表于 2012-4-13 15:52

Option Explicit
Sub l()
Dim comm As Comment
For Each comm In Sheet2.Comments
If comm.Shape.TextFrame.AutoSize = False Then
comm.Shape.TextFrame.AutoSize = True
End If
Next
End Sub

复制代码

测试试试。

AVEL · 发表于 2012-4-13 15:56

新建 Microsoft Excel 工作表000 12-04-13 15-55.rar (59.26 KB, 下载次数: 63)

朝雨浥轻尘 · 发表于 2012-4-13 16:00

AVEL 发表于 2012-4-13 15:52
测试试试。

刚试过效果不错就是不太懂能解释以下不？

AVEL · 发表于 2012-4-13 16:11

Option Explicit
Sub l()
Dim comm As Comment
For Each comm In Sheet2.Comments '在Sheet2表格的所有批注中循环
      If comm.Shape.TextFrame.AutoSize = False Then  '如果批注内容没有自动适应
         comm.Shape.TextFrame.AutoSize = True '修改为自动适应。
      End If
Next
End Sub

朝雨浥轻尘 · 发表于 2012-4-13 16:17

AVEL 发表于 2012-4-13 16:11
Option Explicit
Sub l()
Dim comm As Comment

{:soso_e100:}，谢谢，麻烦你了！

妮妮小隅 · 发表于 2012-4-13 16:33

好厉害，这样都可以，学习了！

妮妮小隅 · 发表于 2012-5-26 23:55

AVEL 发表于 2012-4-13 15:52
测试试试。

不知道如何测试{:soso_e149:}，请问这个代码往哪里输入啊？

kohane123 · 发表于 2012-5-27 00:53

学习了，谢谢

deepwater06 · 发表于 2012-7-12 10:39

要这么复杂吗，07里面在审阅——批注——显示所有批注就可以了吧

		自动登录	找回密码
密码			免费注册

如何将批注内容都显示出来

最新热点 /1