在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
```
在这个代码中，我们首先创建一个新的批注，然后获取这个批注的形状。然后，我们调整批注框的大小，并限制其右边界的最大值。如果批注框的右边界超过了工作表的最右边，我们就将批注框的宽度调整为使其左边界与最右边对齐。
2 个回答
### 实现批注框自动调整大小并限制右边界最大值的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`变量的值来设置批注框的最大宽度。