Visio VBA：如何抑制页外引用相关自动弹出的对话框？

几个可行的排查和解决方向 #

• 检查引用的解析状态：确认你编程设置链接时，有没有把引用弄成「未解析的页外引用」。Visio只要检测到这类引用就会弹框，哪怕你手动设了参数。可以在创建引用后，显式给Hyperlink.SubAddress赋值，指向目标页面的ID或名称，确保引用被系统正确识别。
• 调整AlertResponse的使用时机：application.AlertResponse = 2得在弹窗触发之前就设置，而且要保证宏执行全程这个设置有效。可以把这句放在宏最开头，结束前再恢复默认值，避免影响后续操作：

  Sub AddPagesAndReferences()
      Dim originalAlert As Integer
      originalAlert = Application.AlertResponse
      Application.AlertResponse = 2 ' IDCANCEL
  
      ' 你的页面创建、引用设置代码段
  
      Application.AlertResponse = originalAlert ' 恢复原有设置
  End Sub
  

• 尝试全局调低警报级别：如果上面的方法没用，可以试试单独针对Visio的警报做设置，把警报级别调低：

  Application.Settings.AlertLevel = visAlertLevelNone ' 临时禁用所有警报
  ' 执行你的核心操作
  Application.Settings.AlertLevel = visAlertLevelMedium ' 恢复默认警报级别
  

• 确认目标页面的有效性：一定要确保你设置的链接目标页面已经在文档里创建好了，而且名称、ID和你设置的参数完全匹配。要是目标页面不存在，Visio肯定会弹框让你新建页外引用，哪怕你觉得参数都设对了。

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