Zweig mit mehr als sechs Ästen

In der letzten Visio-Schulung beschwerte sich ein Teilnehmer über das Shape „Zweige schräg“. Dort könne man nur bis zu sechs Zweige herausziehen. Er benötigt allerdings acht Linien.
Kein Problem: Im ShapeSheet muss man nur zwei weitere Zeilen für die Controls (die gelben Steuerelemente) einfügen und die Formeln von oben nach unten kopieren.
Außerdem muss man zwei neue Abschnitte einfügen; den Zeilentyp auf MoveTo und LineTo ändern. Bei beiden Abschnitten wird jeweils eine neue Zeile eingefügt. Die Formeln können von Abschnitt Geometrie7 nach geometrie8 und Geometrie9 kopiert werden. Die Formeln müssen angepasst werden – so wird beispielsweise aus:
Width+ABS(Controls.Row_6.Y-Height/2)/Scratch.A1
die neue Formel:
Width+ABS(Controls.Row_7.Y-Height/2)/Scratch.A1
bzw.
Width+ABS(Controls.Row_8.Y-Height/2)/Scratch.A1
Ein Test – und fertig ist der neue Zweig. Er kann in einer Schablone gespeichert werden.

Schablonen / Ansicht

Bislang habe ich immer empfohlen bei Schablonen in Visio die Standardansicht (Symbole und Namen) zu lassen. Aber: wenn man die Beschriftungen geschickt wählt, kann auch die Ansicht „Nur Namen“ interessant sein.

Bilder mit transparentem Hintergrund

Übrigens: Wenn Sie in Visio ein Bild mit transparentem Hintergrund (also GIF, PNG oder TIF) einfügen und dann dieses Bild komprimieren, wird der transparente Hintergrund durch eine Farbe ersetzt. Das Bild wird intern als JPEG gespeichert und unterstützt deshalb keine Transparenz. Das Gleiche passiert manchmal beim Vergrößern oder Verkleinern eines Bildes, beziehungsweise beim Zoomen – manchmal wird der transparente Hintergrund gelöscht. Glücklicherweise tritt dieser Effekt nur selten auf.

Shapetexte verknüpfen

Mit der Funktion Shapetext kann man Texte zwischen zwei Shapes verknüpfen. Man muss noch nicht einmal das ShapeSheet bemühen – es funktioniert über Einfügen / Feld. Man muss lediglich den Namen des anderen Quell-Shapes ermitteln (Entwicklertools / Shape-Name). Und dann eingeben:
=SHAPETEXT(Sheet.xx!TheText)
Es funktioniert auch blattübergreifend.

Nicht druckbar und nicht sichtbar

Schöne Frage in der heutigen Visio-Schulung: Ein Teilnehmer zeigt mir eine Tabelle, die aus Rechtecks-Shapes bestehen. Damit diese Felder als Pflichtfelder gekennzeichnet sind, wurde ein großes, farbiges Rechteck unterlegt. Dieses wird auf nicht druckbar gesetzt (Entwicklertools / Verhalten). Die darüberliegenden Rechtecke sind ohne Füllfarbe formatiert. Ärgerlicherweise klickt man nun durch sie hindurch. Sie sind sehr schwer auszuwählen.


Die Lösung: man formatiert die Shapes mit einer beliebigen Füllfarbe und setzt die Transparenz auf 100% hoch. Und schon sind sie leichter zu selektieren.

Esc funktioniert auch

Amüsant, was ich alles in Visio-Schulungen von Teilnehmern lerne. Ich wechsel mit der Tastenkombination [Strg] + [1] auf der Zeigertool (den weißen Standardmauszeiger). Es geht auch mit mehrmaligem Drücken der Taste [Esc].

Bemaßungslinien

Ein Freund von mir möchte mir gerne einen Pullover stricken. Er fragt mich nach meinen Maßen. Also schnell eine Visio-Zeichnung angefertigt und als Bild gespeichert …

Multishape

Das Bodenshape und das Shape „Schuss“
===================================
Und so habe ich das Shape erstellt:
Ich ziehe die sieben Shapes auf das Zeichenblatt und sehe sie mir an:

Es fällt auf, dass einige der Shapes gruppiert sind. Da es schwierig ist eine Gruppe auszublenden (weil das Gruppenshape auf den einzelnen Shapes liegen und die Gruppe selbst keine Linie und Füllung hat). Also hebe ich so lange die Gruppen auf, bis die Shapes „flach“ sind:

Da ich nun einzelne Shapes habe, werden sie über Entwicklertools / Vorgänge / Verbinden zu einem Shape verbunden.
Die sieben Shapes werden mit Ausrichten ([F8]) übereinander gelegt und erneut gruppiert.
Im ShapeSheet der Gruppe füge ich einen Abschnitt „userdefinied cell“ ein. Die Zeile heißt „Boden“.
Ich fügen einen Abschnitt „Action“ ein, der sieben Zeilen erhält (Einfügen / Zeilen). Die Menüs lauten: =“Füllkörper unregelmäßig“, =“Kaskadeneinbauten“, =“Füllkörper regelmäßig“, … In den Actions baue ich die Formel ein:
SETF(„User.Boden“,1)
SETF(„User.Boden“,2)
SETF(„User.Boden“,3) usw.
Das heißt: in die Zelle User.Boden wird der Wert 1 oder 2 oder 3 … hineingeschrieben – je nachdem, welcher Eintrag im Kontextmenü ausgewählt wurde. Schließlich wird noch in der Spalte Checked die Formel =User.Boden=1 oder =User.Boden=2 oder =User.Boden=3 … eingetragen. Das heißt: steht in der Zelle User.Boden der Wert 1, dann liefert =User.Boden=1 den Wert True. Die Folge: der Haken wird gesetzt.

Ich sehe unter Entwicklertools / Shapename nach, wie das Shape heißt – hier: Sheet.548. Die Gruppe wird geöffnet (über das Kontextmenü). Achtung: nicht Gruppe aufheben – denn an der Gruppe steckt ja das selbstgebaute Kontextmenü:

Die einzelnen Mitglieder der Gruppe werden markiert. Das ShapeSheet wird angezeigt. Dort wird nun in die Zelle NoShow im Geometrieabschnitt eingetragen:
Sheet.548!User.Boden<>6
Das heißt: wenn in der Zelle User.Boden der Gruppe NICHT der Wert 6 (hier: Glockenboden) steht, liefert die Formel Sheet.548!User.Boden<>6 den Wert True und NoShow = True bedeutet: dieses Shape wird nicht angezeigt.

Das muss man für alle sieben Mitgliedsshapes machen. Achtung: einige der Shapes haben mehrere Geometrieabschnitte – man muss in jedem Abschnitt diese Formel eintragen.
Das Shape ist fertig – in Visio kann man über Entwicklertools / Verhalten einschalten: „Nur Gruppe“, damit der Anwender nicht fälschlicherweise in die Gruppe hineinklickt.

Dieses Shape habe ich in den Schuss eingebaut. Ich habe den Schuss aus der Schablone gezogen, die Gruppierung aufgehoben. Erneut gruppiert. Nun heißt die Gruppe „Sheet.100“ und nicht „Schuss mit EBH (Packung)“ – die Leerzeichen und die Sonderzeichen sind unglücklich. An die Gruppe füge ich die Daten an, wobei die Liste der Füllung die gleiche Reihenfolge hat, wie mein Boden-Shape:
leer;Füllkörper unregelm.;Kaskade;Füllkörper regelm.;Siebboden;Ventilboden;Glockenboden;Packung

Das Shape erhält im ShapeSheet zwei benutzerdefinierte Zellen:
User.Boden und User.Bodennummer
In User.Boden wird der ausgewählte Text der Shapedaten wiederholt:
=FIND(Prop.Füllung,Prop.Füllung.Format)
In User.Bodennummer wird die Nummer des Eintrags bestimmt – ich suche also die Position des Textes in der Liste:
=IF(User.Boden=1,0,IF(User.Boden=6,1,IF(User.Boden=27,2,IF(User.Boden=35,3,IF(User.Boden=54,4,IF(User.Boden=64,5,IF(User.Boden=76,6,7)))))))
Diese Formel liefert 0 bei „leer“, 1, bei „Füllkörper unregelm.“, 2 bei „Kaskade“ usw.
Das Bodenshape wird in die Gruppe eingefügt. Dort verweist nun die Zelle User.Boden des inneren Shapes auf die Zelle des äußeren Gruppenshapes.
=Sheet.100!User.BodenNummer
Die Gruppe kann über Verhalten geschützt werden.

Das fertige Shape:

Länge einer Linie: LengthIU

Folgende Zeilen Code berechnen die Länge einer Linie:

Sub LängeAnzeigen()

Const ShapeLinieAnzeigen As String = „Dynamischer Verbinder“

Dim i As Long

 

For i = 1 To ActivePage.Shapes.Count

If ActivePage.Shapes(i).Name Like „*“ & ShapeLinieAnzeigen & „*“ Then

ActivePage.Shapes(i).Text = Format(Application.ConvertResult(ActivePage.Shapes(i).LengthIU, „in“, „mm“), „0.00“)

End If

Next i

End Sub

Erklärung: Die Eigenschaft LengthIU liefert die Länge – allerdings in inch. Sie muss in cm oder m umgewandelt werden. Dies kann die Funktion Application.ConvertResult. Und dieses Ergebnis wird mit der Funktion Format auf zwei Stellen nach dem Komma formatiert: „0.00“. Und diese Ergebnis wird auf das Shape als Text geschrieben. Auf welches Shape?

 

Eine Schleife durchläuft alle Shapes und schreibt den Text jeweils auf die „Dynamischen Verbinder“.

 

Für Ihre Fluchtwege können Sie den Code anpassen. Erstellen Sie ein Mastershape „Fluchtweg“ in einer Schablone, ziehen es aufs Zeichenblatt (formatieren es, machen es transparent …). In Entwicklertools / Shape-Name befindet sich ja der Name – beispielsweise „Fluchweg“ oder „Fluchtweg.24“ Wenn die Konstante in „Fluchtweg“ geändert wurde, wenn Sie die Formatierung auf „m“ ändern, dann liefert der folgende Code:

Sub LängeAnzeigen()

Const ShapeLinieAnzeigen As String = „Fluchtweg“

Dim i As Long

 

For i = 1 To ActivePage.Shapes.Count

If ActivePage.Shapes(i).Name Like „*“ & ShapeLinieAnzeigen & „*“ Then

ActivePage.Shapes(i).Text = Format(Application.ConvertResult(ActivePage.Shapes(i).LengthIU, „in“, „m“), „0.00“)

End If

Next i

End Sub

 

die Länge des Fluchtwegs (hier: 77,13 – schließlich muss man noch nachsehen, wenn beim Billard gewonnen hat, bevor man in die Raucherecke geht)

Wechseln Sie zu VBA. Erstellen dort ein Modul. Und fügen den Code von oben ein. Sie können diese Datei als VSDM speichern – oder die Vorlage als VSTM (Mit Makros!). Das Programm wird von Visio über Ansicht / Makros ausgeführt.

Ein weiterer Bug – im ShapeSheet

Eigentlich mag ich Visio sehr gerne. Cleveres Programm! Allerdings finde ich in der Version 2016 leider sehr viele Bugs. Beispielsweise folgender:
Ich nehme Bezug im ShapeSheet auf eine Zelle des Abschnitts „Daten“. Beispielsweise so:
=User.Dateinummer&“-„&Prop.ShapeNumber
Ich ändere den Wert der Zelle, auf den Bezug genommen wird. Visio löscht mir die Zeilen. So kann ich nicht arbeiten. Damit ist eine Modifikation des Assistenten „Shapes nummerieren“ hinfällig. Schade!