通过宏格式化UserForm对象并保留格式

Question

我使用宏来定位和调整许多已存在的UserForm元素，主要是CommandButton个对象，通过UserForm_Initialize / UserForm_Activate个事件。

问题是这些事件只会暂时更改弹出窗口的布局和格式：

并且对象本身没有影响：

我想更改UserForm对象上的格式和位置，这样我就可以在实际看到宏当前呈现给用户的布局时添加内容。它甚至可能吗？

Answer 1

这对我有用：

Sub Tester()

    Dim myUserform As Object

    Set myUserform = ThisWorkbook.VBProject.VBComponents("ExcelDatePicker")


    With myUserform
        .Activate '< added from link below
        .Properties("Caption") = "Testing"
        .Properties("Width") = 200
        .Properties("Height") = 200
    End With

End Sub

标题是UserForm的属性，而不是Designer

的属性

编辑 - 从OP更新： 最后，我收到了如何解决这些问题的答案： UserForm error: Method 'Properties' of object '_VBComponent' failed