Ich versuche, die nächste Ebene anzuzeigen, wenn der Benutzer auf eine Form doppelklickt.Visio - Schaltfläche zum Anzeigen der Ebene
Ich habe noch nie VBA in Visio berühren, so habe ich versucht, den Code unten, ich weiß, es ist nicht viel, aber ich ehrlich gesagt keine Ahnung, leider
Visio.layer.*Layername* visible = "1"
End Sub
Jede Hilfe bei allen sehr geschätzt wird.
was meinst du als "Nächste Schicht"?
In Visio in Layer-Eigenschaften-Fenster Layer werden in der Reihenfolge ihres Namens angezeigt. In Shapesheet-Ebenen werden in der Reihenfolge der Erstellung angezeigt!
VisioApp.ActivePage.Layers.Item("layername").CellsC(visLayerVisible).FormulaU = "1"versuchen diesen Code
Dies kann tatsächlich über einfache Shape Funktionen durchgeführt werden. SetF (Getref (ThePage! = Layers.Visible [2]), true) - wenn Sie Layer 2 auf sichtbar setzen möchten.
Das Umschalten von einer Ebene zur nächsten kann durch Erhöhen eines Zählers bei Doppelklick + Zurücksetzen bei Erreichen von max. Layern erfolgen.
= setf (getref (user.counter), wenn (user.counter> = user.MaxLayers, 1, user.counter + 1)