插入图表后，VBA代码不运行

wangnianf

基本情况是：在sheet1中插入一个图表，同时将这个图表移动到了chart1中，在chart1的代码窗品中写下如下两段代码：
Private Sub Chart_Activate()
MsgBox "你选中了" & ActiveSheet.Name
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim str1 As String
Select Case ElementID
Case xlChartArea: str1 = "图表区"
Case xlNothing: str1 = "nothing"
Case Else:: Str = "未识别对象"
End Select
MsgBox "你选择的是：" & str1
End Sub
－－－－－－－－－－－－－－－－－－－－

第一段代码在调试状态下，能正常运行。第二段代码不论在什么情况下，都不运行。

请高手指点一二，谢谢！！

wangnianf

最终实现的效果是：单击图表，会弹出对话框，说，你选择了图表；单击图表的各子对象，如选择图表标题，则弹出对话框：你选择了图表标题！

wangnianf

没有识别到图表?

taller

Case Else:: Str = "未识别对象"  -- Else之后多了一个冒号

wangnianf

taller 发表于 2022-12-10 01:15
Case Else:: Str = "未识别对象"  -- Else之后多了一个冒号

问题不在这里。