使用VBA删除Excel工作表形状时遇错误1004及跨语言适配问题

问题根源 #

直接通过Shapes.Range(Array("按钮显示名称"))删除控件时，表单按钮的Shapes名称会随Office语言版本自动变更（比如英文环境下的Button X会在日文环境变成ボタン X）。更棘手的是，即使不同环境下按钮显示名称一致，也可能因编码或内部标识差异导致"找不到指定对象"的1004错误。

可靠解决方法：摆脱对显示名称的依赖 #

方案1：通过按钮绑定的宏名称定位删除 #

如果每个目标按钮都绑定了固定的宏，可以遍历工作表控件，通过OnAction属性（宏名称）匹配删除：

Sub DeleteButtonsByMacro()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim targetMacros As Variant
    
    ' 替换为你的按钮绑定的宏名称列表
    targetMacros = Array("Macro_OpenSO_1", "Macro_OpenSO_2", "Macro_OpenSO_3", "Macro_OpenSO_4")
    Set ws = ThisWorkbook.Sheets("Open SO")
    
    For Each shp In ws.Shapes
        ' 只处理表单控件类型的按钮
        If shp.Type = msoFormControl And shp.FormControlType = xlButtonControl Then
            If IsInArray(shp.OnAction, targetMacros) Then
                shp.Delete
            End If
        End If
    Next shp
End Sub

' 辅助函数：检查值是否在目标数组中
Function IsInArray(valToCheck As String, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = valToCheck Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

方案2：给按钮设置固定的Name属性（推荐） #

手动给按钮设置一个不随语言变化的底层Name属性（注意不是界面上显示的Caption）：

1. 右键按钮 → 打开「属性」窗口（开发工具选项卡→属性）
2. 修改Name为固定标识（比如btn_OpenSO_6、btn_OpenSO_7）
3. 用固定Name直接删除：

Sub DeleteButtonsByFixedName()
    Dim ws As Worksheet
    Dim targetNames As Variant
    
    targetNames = Array("btn_OpenSO_6", "btn_OpenSO_7", "btn_OpenSO_11", "btn_OpenSO_12")
    Set ws = ThisWorkbook.Sheets("Open SO")
    
    Dim btnName As Variant
    For Each btnName In targetNames
        On Error Resume Next ' 忽略不存在的对象，避免报错中断
        ws.Shapes(btnName).Delete
        On Error GoTo 0
    Next btnName
End Sub

方案3：批量删除工作表所有表单按钮 #

如果需要清理指定工作表的所有宏按钮，直接遍历删除：

Sub DeleteAllFormButtons()
    Dim ws As Worksheet
    Dim shp As Shape
    
    Set ws = ThisWorkbook.Sheets("Open SO")
    For Each shp In ws.Shapes
        If shp.Type = msoFormControl And shp.FormControlType = xlButtonControl Then
            shp.Delete
        End If
    Next shp
End Sub

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