Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Layer per Makro sichtbar/unsichtbar machen

1,333 views
Skip to first unread message

Johann Weiss

unread,
Oct 12, 2009, 3:23:18 PM10/12/09
to
Hallo Leute,
Ich m�chte auf einer Visiozeichnung Sheet.1,Sheet.3 (Layer1)und Sheet.5 oder
Sheet.2
und Sheet.7 (Layer2)jeweils �ber einen Commandbutton sichtbar und wieder
unsichtbar
machen.
wie stelle ich das an?


gruss Johann


Senaj Lelic [DE MVP Visio]

unread,
Nov 27, 2009, 5:56:12 AM11/27/09
to
Hallo Johann,

Du musst die Layer im ShapeSheet des Zeichenblattes auf sichtbar oder
unsichtbar stellen. Jeder Layer eines Zeichenblattes hat eine Zeile im
ShapeSheet des entsprechenden Zeichenblattes. Dazu sieh bitte in der
Entwicklerhilfe in der ShapeSHeet-Referenz nach welche Zellen Du wie
triggern musst (kleiner Tipp. der Abschnitt heisst Layers).
F�r den ersten Layer w�re das beispielsweise:
ActivePage.Layers(1).CellsC(Visio.VisCellIndices.visLayerVisible).Result(Visio.VisUnitCodes.visNumber)
= 0
f�r unsichtbar
und
ActivePage.Layers(1).CellsC(Visio.VisCellIndices.visLayerVisible).Result(Visio.VisUnitCodes.visNumber)
= 1
f�r sichtbar

--

Senaj Lelic
DE MVP Visio
maguro DataAssist GmbH

"Johann Weiss" <joha...@hotmail.de> schrieb im Newsbeitrag
news:evBuVF3S...@TK2MSFTNGP05.phx.gbl...

Daniel Schöni

unread,
Nov 27, 2009, 9:05:50 AM11/27/09
to
Senaj Lelic [DE MVP Visio] wrote:
> Hallo Johann,
>
> Du musst die Layer im ShapeSheet des Zeichenblattes auf sichtbar oder
> unsichtbar stellen. Jeder Layer eines Zeichenblattes hat eine Zeile im
> ShapeSheet des entsprechenden Zeichenblattes. Dazu sieh bitte in der
> Entwicklerhilfe in der ShapeSHeet-Referenz nach welche Zellen Du wie
> triggern musst (kleiner Tipp. der Abschnitt heisst Layers).
> F�r den ersten Layer w�re das beispielsweise:
> ActivePage.Layers(1).CellsC(Visio.VisCellIndices.visLayerVisible).Result(Visio.VisUnitCodes.visNumber)
> = 0
> f�r unsichtbar
> und
> ActivePage.Layers(1).CellsC(Visio.VisCellIndices.visLayerVisible).Result(Visio.VisUnitCodes.visNumber)
> = 1
> f�r sichtbar
>

Einfacher geht's mit dem Macro-Recorder.
Einfach Aufzeichnung starten, Layer unsichtbar machen, Aufzeichnung
stoppen und speichern, zB als "machunsichtbar".
Dann wieder Aufzeichnung starten, Layer wieder sichtbar machen,
Aufzeichnung stoppen und speichern, zB als "machsichtbar".
Den Code ansehen und wo n�tig erg�nzen.
So kannst Du Buttons im Sheet mit Makros versehen, um mit einem Klick
darauf Layers aus- und wieder einzublenden.

Viel Spass
Daniel

Senaj Lelic [DE MVP Visio]

unread,
Nov 30, 2009, 5:48:09 AM11/30/09
to
Stimmt - ich bin nur grunds�tzlich kein Freund des Makro-Rekorders da er
viele Dinge recht "speziell" programmiert.

--

Senaj Lelic
DE MVP Visio

maguro DataAssist GmbH

"Daniel Sch�ni" <sch...@ee.ethz.ch> schrieb im Newsbeitrag
news:4b0fdcbf$1...@news2-rz-ap.ethz.ch...

0 new messages