如何让绑定到形状的VBA宏随工作表复制后正常运行？

问题根源 #

当包含绑定宏的工作表被复制到新工作簿时，形状的OnAction属性会保留原工作簿的绝对引用（例如!BOOK1.TEST.One_Click），导致新工作簿无法定位到宏，最终失效。

可行解决方案 #

方法1：通过工作表激活事件自动绑定宏 #

利用工作表的Activate事件，每次工作表被激活时自动将形状的宏引用指向当前工作表内的过程，彻底避免跨工作簿的绝对引用。

操作步骤：

1. 右键原工作表TEST标签 → 选择「查看代码」打开VBA模块
2. 将你原来的颜色切换宏重命名为ToggleShapeColor（或其他清晰名称），然后添加以下激活事件代码：

Private Sub Worksheet_Activate()
    ' 将形状的宏绑定到当前工作表的ToggleShapeColor过程
    Me.Shapes("TESTSHAPE").OnAction = Me.CodeName & ".ToggleShapeColor"
End Sub

3. 保存原工作簿后，无论将该工作表复制到哪个新工作簿，只要激活这个工作表，形状就会自动绑定当前工作表内的宏，无需手动重新指定。

注：Me.CodeName是工作表模块的固定内部名称（可在VBA编辑器左上角修改），比工作表名称更可靠，即使后续修改工作表显示名称，也不会影响宏的绑定。

方法2：修复原代码的RGB判断问题（额外优化） #

你原代码中存在两个重复的ElseIf sh.Fill.ForeColor.RGB = RGB(255,255,255)判断，第二个条件永远不会触发。此外，直接判断RGB值可能因颜色精度问题导致逻辑失效，建议用形状的Tag属性存储状态，让颜色切换逻辑更稳定：

修改后的完整宏代码：

Private Sub ToggleShapeColor()
    Dim sh As Shape
    Set sh = Me.Shapes(Application.Caller)
    
    ' 用Tag属性存储当前颜色状态：0=红,1=黑,2=白,3=绿
    Select Case Val(sh.Tag)
        Case 0 ' 红色切换为黑色
            sh.Fill.ForeColor.RGB = RGB(0, 0, 0)
            sh.Fill.Transparency = 0.45
            sh.Tag = 1
        Case 1 ' 黑色切换为白色
            sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
            sh.Fill.Transparency = 0.95
            sh.Tag = 2
        Case 2 ' 白色切换为绿色
            sh.Fill.ForeColor.RGB = RGB(0, 200, 20)
            sh.Fill.Transparency = 0.55
            sh.Tag = 3
        Case 3 ' 绿色切换为红色
            sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
            sh.Fill.Transparency = 0.55
            sh.Tag = 0
        Case Else ' 默认状态切换为白色
            sh.Fill.ForeColor.RGB = RGB(255, 255, 255)
            sh.Fill.Transparency = 0.89
            sh.Tag = 2
    End Select
    
    ' 统一设置线条属性
    sh.Line.ForeColor.RGB = RGB(198, 0, 241)
    sh.Line.Visible = False
End Sub

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