vba如何调用矩形框控件

在VBA（Visual Basic for Applications）中，要调用一个矩形框控件（Rectangle Control），通常是在表单或用户表单（UserForm）中。以下是如何在VBA中创建和调用矩形框控件的步骤：

1. 创建用户表单：

在Excel中，打开“开发者”选项卡。

点击“插入”组中的“用户表单”按钮。

2. 添加矩形框控件：

在用户表单上，右键点击，选择“控件” > “表单控件” > “矩形”。

在用户表单上拖动以创建矩形框。

3. 在VBA中引用矩形框：

在VBA编辑器中，你可以通过用户表单的名称来引用矩形框控件。如果用户表单没有命名，Excel会自动赋予一个默认名称，如“UserForm1”。

以下是一个示例VBA代码，演示如何设置矩形框的属性和调用它：

```vba

Private Sub UserForm_Initialize()

' 假设矩形框的名称是 "Rectangle1"

With Me.Controls("Rectangle1")

.Width = 300 ' 设置矩形框的宽度

.Height = 200 ' 设置矩形框的高度

.Top = 100 ' 设置矩形框的顶部位置

.Left = 100 ' 设置矩形框的左侧位置

.BorderColor = RGB(0, 0, 255) ' 设置矩形框的边框颜色为蓝色

End With

End Sub

Private Sub CommandButton1_Click()

' 假设矩形框的名称是 "Rectangle1"

' 调用矩形框的方法

Me.Controls("Rectangle1").Move 100, 100 ' 移动矩形框到新位置

End Sub

```

在上面的代码中，`UserForm_Initialize` 事件在用户表单初始化时运行，设置矩形框的属性。`CommandButton1_Click` 事件假设有一个命令按钮被点击时触发，它会调用矩形框的 `Move` 方法来移动矩形框。

请确保将 `Rectangle1` 替换为你的矩形框的实际名称，如果未命名，Excel会自动分配一个默认名称。