如何在Workbook_Open中访问ActiveX控件并重置其背景色？

嘿，这个问题我之前也遇到过！在Workbook_Open事件里批量重置ActiveX按钮的背景色其实不难，主要分两种情况处理——毕竟你的按钮可能直接放在工作表上，也可能嵌套在分组框这类容器里。下面给你详细的解决方法：

这种情况最常见，直接在ThisWorkbook模块里编写Workbook_Open事件即可：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim oleObj As OLEObject
    
    ' 遍历工作簿内的每一张工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历当前工作表的所有OLE对象（也就是ActiveX控件）
        For Each oleObj In ws.OLEObjects
            ' 判断是否为CommandButton类型的按钮（可根据实际控件调整progID）
            If oleObj.progID = "Forms.CommandButton.1" Then
                ' 重置背景色为默认浅灰色，你可以换成自己需要的颜色
                oleObj.Object.BackColor = RGB(217, 217, 217)
                ' 要是需要重置文字颜色，加上这行：
                ' oleObj.Object.ForeColor = vbBlack
            End If
        Next oleObj
    Next ws
End Sub

代码说明： #

这段代码会逐个检查每个工作表里的ActiveX控件，筛选出标准按钮后重置背景色。你可以把RGB(217,217,217)换成任意你需要的默认颜色，比如用vbButtonFace可以匹配系统默认的按钮背景色，适配性更好。

如果你的按钮放在分组框（GroupBox）、框架（Frame）这类控件容器里，上面的代码就找不到它们了。这时候需要用递归遍历的方式，深入到所有嵌套层级：

第一步：创建递归函数（放在标准模块里） #

先插入一个新的标准模块（比如Module1），写入以下函数：

Sub ResetButtonColors(ctrlContainer As Object)
    Dim ctrl As Object
    
    For Each ctrl In ctrlContainer.Controls
        ' 遇到按钮控件就重置颜色
        If TypeName(ctrl) = "CommandButton" Then
            ctrl.BackColor = RGB(217, 217, 217)
        ' 遇到容器控件，就递归遍历里面的子控件
        ElseIf TypeName(ctrl) = "GroupBox" Or TypeName(ctrl) = "Frame" Then
            ResetButtonColors ctrl
        End If
    Next ctrl
End Sub

第二步：在Workbook_Open里调用递归函数 #

回到ThisWorkbook模块，修改事件代码：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim oleObj As OLEObject
    
    For Each ws In ThisWorkbook.Worksheets
        ' 先处理工作表上直接放置的控件
        ResetButtonColors ws
        ' 再处理嵌套在OLE容器里的控件
        For Each oleObj In ws.OLEObjects
            If oleObj.progID Like "*Frame*" Or oleObj.progID Like "*GroupBox*" Then
                ResetButtonColors oleObj.Object
            End If
        Next oleObj
    Next ws
End Sub

代码说明： #

递归函数会逐层深入所有控件容器，确保不管按钮藏在哪一层都能被找到并重置颜色。

• 模块位置要正确：Workbook_Open事件必须写在ThisWorkbook模块里，而递归函数要放在标准模块（不能放在工作表模块或ThisWorkbook里）。
• 控件类型匹配：如果你的按钮不是标准的CommandButton，可以先选中一个按钮，在VBA编辑器的立即窗口输入?ActiveSheet.OLEObjects("你的按钮名称").progID，回车就能看到正确的控件标识，替换代码里的判断条件即可。
• 颜色选择：除了RGB值，你还可以用Excel内置的颜色常量，比如vbWhite、vbGray，或者直接输入颜色代码（比如&H8000000F是默认按钮背景色）。

内容的提问来源于stack exchange，提问作者HiArt