在多页中创建图像

Question

我想在运行时间在多页中创建图像，但它正在进入多页下方的用户窗体。

Private Sub UserForm_Initialize()
If MultiPage1.value = 0 Then
    Set lblBtn = Me.Controls.Add("Forms.Image.1")
    With lblBtn
        .Top = 20
        .Left = 40
        .Name = "lblNew1"
    End With
    MsgBox "New Image Control Added"
    MsgBox "Page1 is active"
End If
End Sub

Answer 1

请试试这个替换

Set lblBtn = Me.Controls.Add("Forms.Image.1")

与

Set lblBtn = Me.MultiPage1.Pages(0).Controls.aDD("Forms.Image.1")

除此之外，最好正确声明您的变量：

Dim lblBtn As MSForms.Image

在多页中创建图像

Create image in multipage

powerpoint

vba