跨工作表Toggle Button修改Caption时出现438错误的技术求助

错误核心原因 #

触发438错误是因为你访问属性的层级错误：

• Value是ToggleButton控件本身的属性，需要通过OLEObjects(...).Object.Value访问
• Caption是OLEObject容器的属性，直接通过OLEObjects(...).Caption访问即可，不需要加.Object前缀

修正后的完整代码示例 #

模块层级的ClickToggleButton函数 #

Sub ClickToggleButton(btnType As String, sheetName As String)
    Const sSHEET1NAME As String = "Sheet1" ' 替换为你的实际工作表名称
    Const sSHEET2NAME As String = "Sheet2" ' 替换为你的实际工作表名称
    Const sBUTTONMOVENAME As String = "MoveButton" ' 替换为你的实际按钮名称
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim btnCaption As String
    
    ' 确定源工作表和目标工作表
    If sheetName = sSHEET1NAME Then
        Set sourceSheet = Worksheets(sSHEET1NAME)
        Set targetSheet = Worksheets(sSHEET2NAME)
    Else
        Set sourceSheet = Worksheets(sSHEET2NAME)
        Set targetSheet = Worksheets(sSHEET1NAME)
    End If
    
    ' 同步两个按钮的状态（原逻辑保留）
    targetSheet.OLEObjects(sBUTTONMOVENAME).Object.Value = sourceSheet.OLEObjects(sBUTTONMOVENAME).Object.Value
    
    ' 根据按钮状态设置对应Caption文本
    btnCaption = IIf(sourceSheet.OLEObjects(sBUTTONMOVENAME).Object.Value, "已启用移动", "启用移动")
    
    ' 修改两个按钮的Caption（关键修正：移除.Object前缀）
    sourceSheet.OLEObjects(sBUTTONMOVENAME).Caption = btnCaption
    targetSheet.OLEObjects(sBUTTONMOVENAME).Caption = btnCaption
End Sub

工作表层级的按钮点击事件（保留原有结构） #

Private Sub MoveButton_Click()
    ClickToggleButton "move", ActiveSheet.Name
End Sub

额外说明 #

• 代码存储位置不影响该问题的解决，只要属性访问层级正确，无论在工作表模块还是标准模块都能正常运行
• 确保常量sSHEET1NAME、sSHEET2NAME、sBUTTONMOVENAME的取值和你的实际工作表、按钮名称完全一致

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