在Excel VBA中,通过一个过程自定义所有用户表单

时间:2019-02-27 18:35:03

标签: excel vba

我有按相似属性分组的用户表单,用户可以更改。与其在每个用户窗体的初始化子窗口中进行此更改,不如在子窗口中进行此操作以缩短代码。

我收到438错误

被叫子和调用者在下面。我收到运行时错误438,无法解决。

Public Sub customizeCurrentUserForm(ByRef userFormName_Send As Object)
            With userFormName_Send
                .Width = ThisWorkbook.canvasWidth
                ...
                ...
            End With
End Sub

Private Sub UserForm_Initialize()
    customizeCurrentUserForm (Me)
End Sub

0 个答案:

没有答案