excel - 如何找到Excel中组框中选定的形状？

Question

我有一个带有选项按钮的组框，我需要找出在 VBA 中选择了其中哪一个。我已经浏览 MSDN 几个小时了，但找不到解决方案。

必须有一种方法可以找到所选的选项按钮。可能通过每个选项按钮按名称和 for-each 查找组吗？

Answer 1

这似乎是一个可行的解决方案。

(向 KazJaw 点头表示 Dim ... As OptionButton。这似乎是让 .GroupBox 工作的关键)

Function WhichOption(shpGroupBox As Shape) As OptionButton
    Dim shp As OptionButton
    Dim shpOptionGB As GroupBox
    Dim gb As GroupBox

    If shpGroupBox.FormControlType <> xlGroupBox Then Exit Function
    Set gb = shpGroupBox.DrawingObject
    For Each shp In shpGroupBox.Parent.OptionButtons
        Set shpOptionGB = shp.GroupBox
        If Not shpOptionGB Is Nothing Then
            If shpOptionGB.Name = gb.Name Then
                If shp.Value = 1 Then
                    Set WhichOption = shp
                    Exit Function
                End If
            End If
        End If
    Next
End Function

像这样使用

Sub test()
    Dim shpOpt As OptionButton

    Set shpOpt = WhichOption(Worksheets("Sheet1").Shapes("Group Box 1"))
    Debug.Print shpOpt.Name
End Sub