Visio VBA问题：SelectionChanged事件无法触发以将形状置于顶层

我使用Microsoft Visio 2016（VBA v7.1），想要实现选中形状时自动将其置于顶层的功能。已经设置了SelectionChanged事件的处理程序，但始终无法正常运行，编译时一直报错：“过程声明与事件描述或同名过程不匹配”。

当前使用的代码 #

我最初将代码放在标准模块中：

Public MyEvents As New MyVisioEvents

Sub InitializeEvents()
    Set MyEvents.vApp = Visio.Application
End Sub

Public WithEvents vApp As Visio.Application

Private Sub vApp_SelectionChanged(ByVal Selection As IVSelection)
    If Not Selection Is Nothing Then
        If Selection.Count > 0 Then
            Dim shape As Visio.shape
            Set shape = Selection.Item(1)
            shape.BringToFront
            Debug.Print "Shape moved to front: " & shape.Name
        End If
    End If
End Sub

同时尝试在ThisDocument中添加自动初始化代码：

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
    Debug.Print "Document opened and InitializeEvents is running."
    InitializeEvents
End Sub

已尝试的调试步骤 #

• 检查事件签名，确认vApp_SelectionChanged的参数与Visio官方定义的SelectionChanged事件一致
• 将事件定义和处理程序拆分到不同模块，无效果
• 执行Debug > Compile VBAProject触发编译错误，用Run > Reset清除内存对象，问题依旧
• 在全新Visio文档中测试，排除文档损坏问题
• 执行Windows 10的Visio修复（重新安装），完成后问题仍存在

解决方法 #

问题核心在于事件参数类型错误和类模块使用方式不当，修正步骤如下：

1. 修正事件签名
   Visio 2016的SelectionChanged事件参数应为Visio.Selection，而非IVSelection（这是底层接口类型，VBA中需使用具体对象类型）。

2. 正确拆分类模块与标准模块
   带有WithEvents的对象必须放在类模块中，不能直接放在标准模块里：

   • 插入新类模块，命名为MyVisioEvents，写入代码：

     Public WithEvents vApp As Visio.Application
     
     Private Sub vApp_SelectionChanged(ByVal Selection As Visio.Selection)
         If Not Selection Is Nothing And Selection.Count > 0 Then
             Dim shp As Visio.Shape
             Set shp = Selection.Item(1)
             shp.BringToFront
             Debug.Print "Shape moved to front: " & shp.Name
         End If
     End Sub
     

   • 在标准模块（如Module1）中写入初始化代码：

     Public MyEvents As MyVisioEvents
     
     Sub InitializeEvents()
         Set MyEvents = New MyVisioEvents
         Set MyEvents.vApp = Visio.Application
     End Sub
     

   • 修正ThisDocument中的自动初始化代码参数类型：

     Private Sub Document_DocumentOpened(ByVal doc As Visio.Document)
         Debug.Print "Document opened and InitializeEvents is running."
         InitializeEvents
     End Sub
     

3. 编译测试
   执行Debug > Compile VBAProject确认无编译错误后，手动运行InitializeEvents，或关闭重新打开文档，选中形状即可触发置顶层操作。

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