使用 VBA 在 Visio 2013 中对命令按钮进行编程以打开图层属性窗口

Question

这是我一段时间以来一直试图解决的问题。我不知道VBA，我还在努力学习。我有为在 Visio 2013 中工作而创建的图表，并且这些图表使用图层。我正在尝试在命令按钮中编写代码，以打开用户单击按钮的活动页面的图层属性窗口。我已经仔细阅读了 Visio 的 Microsoft 文档页面，但我不知道如何将图层属性窗口作为对象引用以及如何使用 VBA 运行它。这是我迄今为止尝试过的不同迭代；

Private Sub CommandButton1_Click()
Visio.Page.Layers.Properties("NameofPage").Run 
End Sub

我非常感谢在此问题上提供的任何帮助和指导。我什至不确定我做错了什么。

Answer 1

在 ms visio 中，您只能显示活动页面的图层属性窗口！

Application.DoCmd (visCmdLayerSetupDlg)