Question

我正在尝试遍历在工作表上的框架中组合在一起的ActiveX复选框。我已经能够找到所有复选框，但我无法通过VBA代码获取GroupName属性。为了弄清楚脚本，我刚刚使用了一个简单的工作簿，它有两个复选框，分组在一个框架中，简单地命名为Checkbox1和Checkbox2，它们具有相同的GroupName。这就是我到目前为止所拥有的

    Sub test2()
    Dim i As Integer
    Dim cb As Object
    Dim countItems As Integer
    Dim checkBox As Object

    For Each cb In ActiveSheet.Shapes
        If cb.Name Like "Group*" Then
    countItems = cb.GroupItems.Count
    For i = 1 To countItems
                If cb.GroupItems(i).Name Like "Check*" Then
                    Debug.Print cb.GroupItems(i).Name
                End If
            Next i
        End If
    Next cb

    End Sub

我一直在互联网上寻找解决方案，但我看到的那些似乎并不合适，因为我的复选框被组合在一起。

    Sub test4()
        Dim ole As OLEObject

        For Each ole In ActiveSheet.OLEObjects
            If TypeName(ole.Object) = "CheckBox" Then
                Debug.Print ole.Object.GroupName
                If ole.Object.GroupName = Group And ole.Object.Value = True Then
                    Debug.Print ole.Object.GroupName
                End If
            End If
        Next ole
        GroupClear = True

    End Sub

这似乎可以找到工作表中的复选框，但没有组合在一起。

感谢您的帮助

Answer 1

评论1帮助找到了正确的位置。分组似乎需要通过属性来挖掘Object.Object.GroupName

    Debug.Print cb.OLEFormat.Object.Interior.Parent.ShapeRange.GroupItems(i).Parent.Item(i).OLEFormat.Object.Object.GroupName

在Object.Object属性之后，大多数属性都可用于搜索或编辑，这对于复选框的额外控制很有用。

Excel VBA：工作表

1 个答案: