VBA - OptionButton 集合

Question

我正在尝试获取一组选项按钮。我希望我收藏的对象具有“OptionButton”类型。有没有办法做到这一点？

Private Sub SetInputs()

Dim OptionButtons As Collection
Set OptionButtons = New Collection

OptionButtons.Add (br_FKG1)

' MsgBox (TypeName(br_FKG1)) : OptionButton
' MsgBox (TypeName(OptionButtons.Item(1))) : Boolean

(...)

End Sub

谢谢，

Answer 1

明白了。如果有一天有人遇到同样的问题，请写下

OptionButtons.Add br_FKG1 

没有括号，以便添加对象而不是值。

没有括号，实际上是添加的类的默认属性。对于 OptionButton，它是 .Value，但对于其他类，它可能是别的东西。