复制工作簿后Shape.OnAction丢失工作表名下划线导致报错问题

这是Excel VBA针对表单控件的已知兼容性行为：

• 当表单控件关联的宏存放在工作表代码模块中时，部分Excel版本（32位版、或开启了传统兼容性设置的版本）会将工作表名称中的下划线识别为控件加速键的前缀标记，因此读取Shp.OnAction属性时会自动剔除下划线字符，导致获取到的工作表名缺少下划线，并非你的代码逻辑错误。
• 你当前使用的ShapeUpdate代码本身存在逻辑遗漏：拆分得到新的宏链接NewLink后，没有将其重新赋值给Shp.OnAction，即使没有下划线的问题，这段代码也不会实际修改按钮的宏指向。

不需要硬编码替换特定工作表名，直接基于当前工作表的真实名称构建宏链接即可，通用代码如下：

Private Sub ShapeUpdate()
    Dim Shp As Shape
    Dim MacroLink As String
    Dim SplitLink As Variant
    Dim MacroName As String
    
    For Each Shp In ActiveSheet.Shapes
        MacroLink = Shp.OnAction
        If MacroLink <> "" And InStr(MacroLink, "!") <> 0 Then
            ' 仅提取宏名称部分，忽略OnAction返回的错误工作表名
            SplitLink = Split(MacroLink, ".")
            MacroName = SplitLink(UBound(SplitLink))
            ' 直接用当前工作表的真实名称生成正确的宏链接，单引号兼容含特殊字符的工作表名
            Shp.OnAction = "'" & ActiveSheet.Name & "'." & MacroName
        End If
    Next Shp
End Sub

该方案适配所有工作表名称场景，不需要针对特定名称做定制修改，可直接复用在其他同需求的工作簿中。

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