Workbook_Open 事件将工作簿中所有按钮的值设置为 false

Question

我有一个包含多张带有命令和切换按钮的工作簿。我正在尝试创建将所有按钮的值设置为 false 的 Workbook_Open 事件。下面的代码返回错误： "Compile error: Method or data member not found" 并突出显示 Private Sub Workbook_Open() 线，所以我不知道在哪里寻找错误。如何修复它或以其他方式实现它？

Private Sub Workbook_Open()

Dim OleObj As OLEObject
    For Each OleObj In Sheets.OLEObjects
        If TypeName(OleObj.Object) = "ToggleButton" Or TypeName(OleObj.Object) = "CommandButton" Then
            OleObj.Object.Value = False
        End If
    Next OleObj
    
End Sub

Answer 1

试一试：

Private Sub Workbook_Open()
    
    Dim OleObj As OLEObject
        For Each OleObj In Sheets.OLEObjects
            If OleObj.Name = "ToggleButton" Or OleObj.Name = "CommandButton" Then
                OleObj.Object.Value = False
            End If
        Next OleObj
        
    End Sub