使用SelectionAdded事件从Visio打开文档

Question

我正在尝试在Visio（2013或更高版本）中创建一个形状对象，在选中时通过VBA打开本地文档。

我已经尝试使用下面的代码来创建一个msgbox的事件，以后我会更改msgbox功能以打开文档，但是当我选择一个形状时，msgbox将不会显示。

Private WithEvents OrgChartApp As Visio.Application

Private Sub OrgChartApp_SelectionAdded(ByVal Selection As IVSelection)
    If Selection.Count = 1 Then
        MsgBox "Hello"
    End If
End Sub