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）