"Pfeile" ein bzw. ausblenden

[Michael Sticksel]

Hallo,
ich habe folgendes Problem:
Ich habe ein Diagramm erstellt mit ca 100 Objekten. Die Objekt haben
untereinander eine bestimmte Beziehung die ich mit Hilfe von "Pfeilen"
dokumentiert habe. Nachdem ich alle Beziehungen in die Zeichnung
eingetragen hatte, kann man nichts mehr erkennen (zu viele Pfeile).

Ist es möglich die Pfeile ein- bzw. auszublenden, wenn ich auf das Objekt
ein Doppelklick mache?

[Senaj Lelic [DE MVP Visio]]

Klar,

trage im shapeSheet (Fenster->ShapeSheet anzeigen, bei markiertem Shape)
einfach folgende Formel ein:
SETF(getref(Geometrie1.NoShow);NOT(Geometrie1,noshow))

Das Problem ist nur: wie blendest Du die Shapes danach wieder ein ?
Ich würde hier ien VBA-Makro vorschlagen, dass alle eindimensionalen shapes
ausblendet:

Public sub PfeilEx()
Dim alleShapes As Visio.Shapes
Dim einShape As Visio.Shape
dim intSchleife As Integer

set alleShapes = ActivePage.Shapes
for intSchleife = 1 to alleShapes.Count -1
set einShape = alleShapes.Item(intSchleife)
if einShape.OneD = True then
einShape.Cells("Geometry1.NoShow").Result(visnoCast) = 1

end if

next intSchleife
end Sub

Das sollte es gewesen sein, ansonsten meld Dich nochmal.

--

Regards
Senaj Lelic
MVP Visio
Sen...@DataAssist.de.nospam

"Michael Sticksel" <Michael_...@mro.man.de> schrieb im Newsbeitrag
news:uYQC1rM$BHA.1344@tkmsftngp05...

[Michael Sticksel]

Hallo Senaj,

ich habe Visio Professional 5.0. Wie und wo genau soll ich die Formel
eintragen? Ich bin ziemlicher Anfänger!!!
Noch was zu meiner Frage von gestern:
Ich habe ca. 100 Objekte. Jedes Objekt hat 1 oder bis zu 20 Beziehungen die
ich mit den Pfeilen dokumentiert habe.
Meine Frage war: Ich möchte kein Pfeil sehen. Wenn ich aber auf ein Objekt
einen Doppelklick ausführe, möchte
ich nur die 1 bis 20 Beziehungen (Pfeile) für dieses Objekt angezeigt
bekommen.

Ich hoffe Du oder ein anderer in der Newsgroup könnt mir dabei helfen

Danke Michael Sticksel

"Senaj Lelic [DE MVP Visio]" <Sen...@DataAssist.de.nospam> schrieb im
Newsbeitrag news:ebLOCwO$BHA.1168@tkmsftngp02...

[Senaj Lelic [DE MVP Visio]]

Michel,

das ist so direkt nicht möglich, den von mir gelieferten Code baust du in
DEin VBA-Projekt ein (mit Alt-F11 nach VBA wechseln und dort auf
ThisDocument klicken, da den Code einfügen, dann ist er über
"Extras->Makros->PfeilEx" verfügbar...
Anders gehts nicht (außer mit etwas aufwändigerer Programmierung, aber das
wäre Consulting..

--

Regards
Senaj Lelic
MVP Visio
Sen...@DataAssist.de.nospam

"Michael Sticksel" <Michael_...@mro.man.de> schrieb im Newsbeitrag

news:Oe7yN3W$BHA.372@tkmsftngp04...

[Michael Sticksel]

Erst mal vielen Dank Senaj,

ich muss mal schauen wie ich es löse.
Vielleicht muss ich doch mal Programmieren lernen.

Gruß Michael

[Klaus Mueller]

"Michael Sticksel" <Michael_...@mro.man.de> schrieb im Newsbeitrag

news:OKg80FZ$BHA.1848@tkmsftngp05...

> Erst mal vielen Dank Senaj,
>
> ich muss mal schauen wie ich es löse.
> Vielleicht muss ich doch mal Programmieren lernen.

Das ist sicher die richtige Idee. Ich habe vor etwa einem halben Jahr
angefangen, mich mit VISIO zu beschäftigen und bin - gerade wegen der
Programmiermöglichkeiten in VBasic - begeistert. Es nützt nur nichts, Dir
jetzt einen Code zu bauen, den Du dann mangels eigener Erfahrung gar nicht
anpassen kannst.
Übrigens - in puncto Hilfestellung kriegst Du nirgends so viel Unterstützung
wie in dieser NG, auch da bin ich begeistert.

Viele Grüße, Klaus Müller

>
> Gruß Michael
>
>