选中Shape时修改其文本颜色，如何自动检测Shape选中状态变更？

Excel原生没有直接提供Worksheet_ShapeSelectionChange这类专用事件，你可以通过以下两种方案实现需求：

方案1：使用工作簿级WindowSelectionChange事件（最接近需求的实现） #

该事件会在窗口选中内容变更时触发，覆盖单元格、Shape等所有选中场景，仅需加判断条件即可筛选出Shape选中的情况，代码需要写入ThisWorkbook模块中生效：

Private Sub Workbook_WindowSelectionChange(ByVal Wn As Window)
    ' 检测是否选中了单个Shape对象
    If TypeName(Selection) = "Shape" Then
        Dim selectedShape As Shape
        Set selectedShape = Selection
        ' 这里写自定义逻辑，示例为修改文本颜色为红色
        selectedShape.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
    ' 可选：取消选中Shape时的恢复逻辑
    Else
        ' 恢复默认样式的代码写在这里
    End If
End Sub

• 如果需要适配多选Shape的场景，可追加判断TypeName(Selection) = "ShapeRange"的分支，自行处理多Shape批量操作逻辑
• 该方案自动适配当前工作簿内所有Shape，不需要单独给每个对象绑定事件

方案2：给指定Shape绑定点击事件 #

适合仅需要监听少量特定Shape的场景：

1. 右键点击需要监听的Shape，选择「指定宏」
2. 新建宏并写入如下逻辑：

Sub Shape_Click()
    Dim clickedShape As Shape
    Set clickedShape = ActiveSheet.Shapes(Application.Caller)
    ' 修改文本颜色逻辑
    clickedShape.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

• 每个需要监听的Shape都要单独绑定该宏，Shape数量较多时操作成本较高
• 仅能监听到Shape被点击选中的瞬间，无法直接监听取消选中的动作

注意：两种方案都需要将工作簿保存为.xlsm启用宏的格式，否则代码无法正常运行

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