用vba画长方形，标注尺寸

很高兴回答你的问题。对于使用 VBA 绘制长方形并标注尺寸的问题，您可以按照以下步骤操作：

1. 打开 VBA 编辑器，打开 VBA 新建文件或打开您需要添加长方形的文件，选择 "开发工具" 菜单栏，点击 "Visual Basic"。

2. 选择 "插入" 菜单栏，然后选择 "模块"，在新建的模块文件中添加以下 VBA 代码：

Sub draw_rectangle()
Dim l As Long, t As Long, w As Long, h As Long
Dim shpRectangle As Shape

'确定左上角的坐标：l(left)、t(top)
l = 100
t = 100

'长方形的宽度和高度：w(width)、h(height)
w = 200
h = 100

'Shape 类型的对象，用于表示文档中的某个形状
Set shpRectangle = ActiveSheet.Shapes.AddShape(msoShapeRectangle, l, t, w, h)

'选择新添加的长方形
shpRectangle.Select

'添加文本框，在长方形中插入尺寸信息
ActiveSheet.Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "Width: " & w & " Height: " & h

End Sub

3. 运行代码，执行绘制长方形的操作。

注意事项：

以上代码只是一个示例，如果要更改长方形的位置和大小，只需要修改代码中的变量值即可。

以上是关于使用 VBA 绘制长方形并标注尺寸的解答，希望能对您有所帮助。