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

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

当达到最大图层时，可以通过双击+重置递增计数器来完成从一个图层切换到下一个图层。

= setf（getref（user.counter），if（user.counter＆gt; = user.MaxLayers，1，user.counter + 1）