excel - OLEObjects OptionButtons 事件处理

Question

我有一组 OLEObjects 选项按钮，但我已经意识到，当激活一个选项按钮以触发类似表单对象的子或函数时，我无法处理更改事件。我需要在项目中使用 OLEObjets，OLEObject 在一张表中。我需要获取已激活的 OptionButton 并触发操作
请问该怎么走？

Answer 1

添加一个类模块，将其命名为 OptionClass，将下面的代码放在 Class 中:

Public WithEvents Opt As MSForms.OptionButton

Private Sub Opt_Click()
'change will trigger multiple optionbuttons
    MsgBox Opt.Name
End Sub

在一个模块中:

Dim OptionButtons() As New OptionClass 'better to do this in 2 seperate lines

Sub PutOn(Sht As Object)
    Dim Ctl As OLEObject, i As Long

    For Each Ctl In Sht.OLEObjects
    
         If TypeName(Ctl.Object) = "OptionButton" Then
               i = i + 1
                ReDim Preserve OptionButtons(1 To i)
                Set OptionButtons(i).Opt = Ctl.Object
         End If
    Next Ctl

End Sub
Sub start()
  PutOn Sheet2
End Sub

根据您的需要进行调整