Vba代码实现给一个窗体动态添加标签控件

要在 VBA 中给一个窗体动态添加标签控件，可以使用 VBA 的用户界面工具包（UserForm）。UserForm 是 VBA 中的一个对象，可以用来创建自定义的窗体，可以添加各种控件，如图片、标签、文本框、按钮等等。

以下是一个示例代码，可以动态添加标签控件：

1. 首先，在 VBA 窗口中右键单击项目，选择插入 -> 用户界面 -> 用户窗体，创建一个新的 UserForm。

2. 在 UserForm 上添加一个按钮控件，命名为 CommandButton1，并设置其 Caption 属性为 "Add Label"。

3. 在 UserForm 的代码窗口中添加以下代码：

Private Sub CommandButton1_Click()
    Dim newLabel As MSForms.Label ' 创建新的标签控件
    Set newLabel = Me.Controls.Add("Forms.Label.1") ' 添加标签控件到窗体中
    newLabel.Caption = "New Label" ' 设置标签控件的文本
    newLabel.Left = 10 ' 设置标签控件的左侧位置
    newLabel.Top = Me.Controls(Me.Controls.Count - 2).Top + 50 ' 设置标签控件的顶部位置
End Sub

在 CommandButton1 的 Click 事件中，首先创建了一个新的标签控件，然后使用 Me.Controls.Add 方法将其添加到窗体中。需要注意的是，这里添加的标签控件类型为 "Forms.Label.1"，可以根据需要修改为其他控件类型。然后，设置了标签控件的文本、左侧位置和顶部位置。其中，顶部位置通过计算前一个控件的顶部位置并加上一个固定的值来实现。

4. 在 VBA 窗口中运行 ShowMyForm 子过程，即可显示出新创建的窗体。点击添加标签按钮，即可动态添加新的标签控件。

需要注意的是，这里只添加了一个标签控件，如果需要添加多个控件，可以使用循环来实现。另外，还可以根据需要设置控件的其他属性，如字体、颜色、大小等等。