### 实现批注框自动调整大小并限制右边界最大值的VBA代码 要实现这个功能，你可以使用以下VBA代码。这段代码会在批注退出编辑状态后自动运行，调整批注框的大小，并限制其右边界最大值。 ```vba Private Sub Worksheet_Change(ByVal Target As Range) Dim cmt As Comment Dim shp As Shape Dim maxWidth As Single ' 设置批注框的最大宽度 maxWidth = 200 ' 遍历工作表中的所有批注 For Each shp In ActiveSheet.Shapes If shp.Type = msoComment Then Set cmt = shp.Comment ' 调整批注框的大小以适应内容 cmt.Shape.TextFrame.AutoSize = True ' 限制批注框的右边界最大值 If cmt.Shape.Width > maxWidth Then cmt.Shape.Width = maxWidth End If End If Next shp End Sub ``` 请注意，这段代码需要在工作表的代码模块中运行。你可以通过右键点击工作表标签，选择“查看代码”来打开代码模块。然后将这段代码粘贴到代码模块中，并根据需要调整`maxWidth`变量的值来设置批注框的最大宽度。