In Visio I like to use buttons to turn layers on and off. Here’s code that uses a single button for turning on and off the layer named ‘Switch’.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Private Sub CommandButton1_Click() Dim LayersObj As Visio.Layers Dim LayerObj As Visio.Layer Dim LayerName As String Dim LayerCellObj As Visio.Cell Set LayersObj = ActivePage.Layers For Each LayerObj In LayersObj LayerName = LayerObj.Name Set LayerCellObj = LayerObj.CellsC(visLayerVisible) If LayerName = "Switch" Then ' Debug.Print LayerName If LayerCellObj.Formula = False Then LayerCellObj.Formula = True Else LayerCellObj.Formula = False End If End If Next End Sub |
