选中图表工作表时调用宏失败：Worksheet_Activate事件无法触发

你用到的Worksheet_Activate是普通工作表（Worksheet类型）的专属事件，而通过「移动图表」创建的独立图表工作表属于Chart类型对象，不响应Worksheet类的事件，因此你的触发代码无效。

单图表工作表适配（适合图表工作表数量少的场景） #

1. 打开VBA编辑器（快捷键Alt+F11），在左侧项目资源管理器的「Microsoft Excel 对象」分组下，找到对应图表工作表的模块（名称通常为Chart1/Chart2，和你Excel界面显示的图表工作表名称一致），双击打开代码编辑页
2. 粘贴以下事件代码即可：

Private Sub Chart_Activate()
    Call mymacro
End Sub

多图表工作表通用适配（适合大量图表工作表需要触发同个宏的场景） #

如果需要所有图表工作表激活时都运行该宏，可通过类模块绑定全局事件，无需逐个添加代码：

1. 插入新的类模块，命名为ChartEventClass
2. 在类模块中写入以下代码：

Public WithEvents gc As Chart
Private Sub gc_Activate()
    Call mymacro
End Sub

3. 在普通模块中声明全局变量，打开工作簿时初始化所有图表的事件绑定：

Dim colCharts As New Collection
Sub InitChartEvents()
    Dim chtObj As Object
    For Each chtObj In ThisWorkbook.Charts
        Dim cEC As New ChartEventClass
        Set cEC.gc = chtObj
        colCharts.Add cEC
    Next
End Sub

4. 在ThisWorkbook模块中添加工作簿打开事件，启动时自动初始化：

Private Sub Workbook_Open()
    Call InitChartEvents
End Sub

• 如果你的mymacro中原本是通过ActiveSheet.ChartObjects(1)的方式引用内嵌图表，在独立图表工作表中需要改为直接引用ActiveChart，避免对象不存在的报错
• 确认宏安全性设置已对当前文档启用宏，否则所有事件代码都会被默认拦截

内容的提问来源于stack exchange，提问作者a.lay