在日常工作中，Excel 不仅仅是数据处理的工具，更是我们自动化办公的利器。今天我们要探讨的是如何让Excel工作表中的形状宏能够自适应地工作，即使在复制工作表到新的工作簿时也能保持其功能性。
问题背景
假设我们有一个工作簿BOOK1，其中包含一个名为TEST的工作表和一个名为TESTSHAPE的形状。我们在TEST工作表的VBA代码中编写了一个宏，当用户点击这个形状时，它会循环更改形状的颜色。然而，当我们将这个工作表复制到一个新的工作簿BOOK2时，宏的链接会失效，用户需要手动重新分配宏。这个问题在多人协作和共享工作簿时尤为明显。
解决方案
要解决这个问题，我们需要确保宏的引用是与工作表而非工作簿绑定的。以下是一个简单的VBA代码示例，展示了如何实现这一点：
Private Sub Worksheet_Activate() Dim shp As Shape, a As String, arr For Each shp In Me.Shapes a = shp.OnAction If Len(a) > 0 Then arr = Split(a, ".") shp.OnAction = Me.CodeName & "." & arr(UBound(arr)) End If Ne
