https://qingliezhiquan.com/mediawiki/index.php?action=history&feed=atom&title=%E5%AE%8F%E4%BF%AE%E6%94%B9%E8%A1%A8%E6%A0%BC%E6%89%B9%E6%B3%A8宏修改表格批注 - Revision history2026-08-11T10:45:56ZRevision history for this page on the wikiMediaWiki 1.46.0https://qingliezhiquan.com/mediawiki/index.php?title=%E5%AE%8F%E4%BF%AE%E6%94%B9%E8%A1%A8%E6%A0%BC%E6%89%B9%E6%B3%A8&diff=7856&oldid=prevMwroot: Created page with "同事用 WPS 做的表格批注，用 MS Office Excel 打开，批注框糊成一小块，看不全，用以下宏可解决。 <syntaxhighlight lang="VBScript" line> Sub ResizeAllComments() Dim ws As Worksheet Dim cmt As Comment For Each ws In ThisWorkbook.Worksheets For Each cmt In ws.Comments With cmt.Shape .Width = 200 ' 设置批注框宽度，可根据需要调整 .Height = 50 ' 设置批注框..."2025-09-29T01:49:14Z<p>Created page with "同事用 WPS 做的表格批注，用 MS Office Excel 打开，批注框糊成一小块，看不全，用以下宏可解决。 <syntaxhighlight lang="VBScript" line> Sub ResizeAllComments() Dim ws As Worksheet Dim cmt As Comment For Each ws In ThisWorkbook.Worksheets For Each cmt In ws.Comments With cmt.Shape .Width = 200 ' 设置批注框宽度，可根据需要调整 .Height = 50 ' 设置批注框..."</p>
<p><b>New page</b></p><div>同事用 WPS 做的表格批注，用 MS Office Excel 打开，批注框糊成一小块，看不全，用以下宏可解决。<br />
<br />
<syntaxhighlight lang="VBScript" line><br />
Sub ResizeAllComments()<br />
Dim ws As Worksheet<br />
Dim cmt As Comment<br />
<br />
For Each ws In ThisWorkbook.Worksheets<br />
For Each cmt In ws.Comments<br />
With cmt.Shape<br />
.Width = 200 ' 设置批注框宽度，可根据需要调整<br />
.Height = 50 ' 设置批注框高度，可根据需要调整<br />
End With<br />
Next cmt<br />
Next ws<br />
End Sub<br />
</syntaxhighlight><br />
<br />
代码来自通义千问，prompt：<br />
<br />
用宏批量调整批注框的大小</div>Mwroot