在VBA中，我们可以使用Shape对象的`AutoShapeType`属性来创建一个批注框，并使用`TextFrame2.TextRange.Font`属性来设置批注框中的文本。然后，我们可以使用`Shape.Width`和`Shape.Height`属性来调整批注框的大小。最后，我们可以使用`Shape.Left`属性来限制批注框的右边界最大值。 以下是一个示例代码： ```vba Sub CreateAndResizeComment() Dim shp As Shape Dim rng As Range Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' Change to your sheet name Set rng = ws.Range("A1") ' Change to your range ' Create a new comment rng.AddComment "This is a comment" ' Get the comment shape Set shp = rng.Comment.Shape ' Resize the comment box With shp .AutoShapeType = msoShapeRectangle .TextFrame2.TextRange.Font.Size = 10 ' Change font size as needed .Width = 200 ' Change width as needed .Height = 100 ' Change height as needed ' Limit the right boundary of the comment box If .Left + .Width > ws.Cells(ws.Rows.Count, 1).End(xlUp).Left Then .Width = ws.Cells(ws.Rows.Count, 1).End(xlUp).Left - .Left End If End With End Sub ``` 在这个代码中，我们首先创建一个新的批注，然后获取这个批注的形状。然后，我们调整批注框的大小，并限制其右边界的最大值。如果批注框的右边界超过了工作表的最右边，我们就将批注框的宽度调整为使其左边界与最右边对齐。

### 实现批注框自动调整大小并限制右边界最大值的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`变量的值来设置批注框的最大宽度。