如何在函数内设置userform的属性

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (34)

在UserForm_Activate()代码上,我想调用一个函数(尚未创建),它将设置Userform的滚动属性。见下面的代码。

Private Sub UserForm_Activate()
MakeFormResizable 
End Sub

在Modules4表上,我有以下代码:

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

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

提问于
用户回答回答于

得到它了!

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
用户回答回答于

它不会像Me当地人一样工作......

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

Public Sub MakeFormResizable(ByRef aUserform As MSForms.UserForm)

With aUserform
    'Do your stuff
End With

End Sub

扫码关注云+社区

领取腾讯云代金券