Visio - 按钮显示图层

Question

我试图在用户双击图形时显示下一图层。

我从来没有在Visio感动VBA所以我尝试下面的代码，我知道它不是很多，但老实说，我没有线索不幸

Visio.layer.*Layername* visible = "1" 

    End Sub 

任何帮助都将不胜感激。

Answer 1

你的意思是“下一层”？

在visio中图层属性窗口图层按名称排列。在形状表中，图层按创建顺序显示！

VisioApp.ActivePage.Layers.Item("layername").CellsC(visLayerVisible).FormulaU = "1"

试试这个代码

Answer 2

这实际上可以通过简单的ShapeSheet功能来完成。 SetF（Getref（ThePage！= Layers.Visible [2]），true） - 如果要将第2层设置为可见。

从一层切换到下一层可以通过在达到最大层时双击+复位来增加计数器。 （user.counter> = user.MaxLayers，1，user.counter +1）