vba - 如何在函数内设置用户窗体的属性

Question

在 UserForm_Activate() 代码中，我想调用一个函数（尚未创建）来设置用户窗体的滚动属性。请参阅下面的代码。

Private Sub UserForm_Activate()
MakeFormResizable 
End Sub

在 Modules4 表上，我有以下代码：

Public Sub MakeFormResizable()
    Me.ScrollHeight = .Height
    Me.ScrollWidth = .Width
End Sub

当我运行我粘贴的代码时，我收到错误“编译错误：无效或不合格的引用”。

Answer 1

它不会像Me本地一样工作......

也许您想将 Userform 对象传递给 Public 子对象，如下所示：

Public Sub MakeFormResizable(ByRef aUserform As MSForms.UserForm)

With aUserform
    'Do your stuff
End With

End Sub

Answer 2

知道了！

Private Sub UserForm_Activate()
Dim MyObject
Set MyObject = Me
MakeFormResizable MyObject 
End Sub

Public Sub MakeFormResizable(MyObject)
With MyObject
.ScrollHeight = .Height
End If
End With
End Sub