Ein anderer Hintergrund

Warum nicht einfach einen anderen Hintergrund?
Der Kunde möchte schnell und bequem den Maßstab ändern. Damit ist natürlich eine Änderung der Zeichenblattgröße verbunden. Und sämtlicher Elemente, die auf dem Hintergrundzeichenblatt liegen. Kein Problem – man kann mehrere Hintergründe erstellen und nun variabel zuweisen:
Public Sub cboScale(ByRef control As IRibbonControl, ByRef SelectedID As String, ByRef Text As String)
‚MsgBox „Nun steht in: “ & control.ID & “ der Eintrag Nr.: “ & Text & „(“ & SelectedID & „)“
Dim strMassstabAngabe As String
Dim strVerhaeltnis As String
On Error Resume Next

Select Case SelectedID
Case „cmd100“
strMassstabAngabe = „1 cm“
strVerhaeltnis = „100“
Case „cmd50“
strMassstabAngabe = „2 cm“
strVerhaeltnis = „50“
Case „cmd25“
strMassstabAngabe = „4 cm“
strVerhaeltnis = „25“
Case „cmd20“
strMassstabAngabe = „5 cm“
strVerhaeltnis = „20“
Case „cmd10“
strMassstabAngabe = „10 cm“
strVerhaeltnis = „10“
End Select

‚ — ändere Maßstab
Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageScale).FormulaU = strMassstabAngabe
‚ — verwende Hintergrund
Application.ActivePage.BackPage = „Hintergrund-GLP-“ & strVerhaeltnis
‚ — zeige ganzes Zeichenblatt
Application.ActiveWindow.ViewFit = visFitPage

End Sub

glp01

Hintergrund

Vorgestern in der Visio-Schulung kam mal wieder die Frage, ob man einen Hintergrund auslagern kann. Die klare Antwort: Nein! Die zweite klare Antwort: erstellen Sie eine Vorlage mit Ihrem Hintergrund (beispielsweise Logo, Seitennummer, Dateiname und so weiter) und speichern diese Datei als Vorlage. Verwenden Sie diese Vorlage für neue Visio-Zeichnungen – dann sind sie schon so gestaltet, wie das CD oder der Chef es vorgibt.

hintergrund

Kante an Kante

Heute hat ein Teilnehmer in der Visio-Schulung gefragt, wie man ein Shape Kante an Kante mit einem anderen Shape ausrichten kann. Und das ganze ohne Hilfslinie. Er hat die Antwort selbst gegeben: Man muss den Pin des einen auf Mitte-Rechts, den Pin des anderen auf Mitte links setzen. Dann kann man bei beiden im Fenster „Größe und Position“ die gleiche X-Position eintragen.

rand02

Gruppen

Heute in der Visio-Schulung kam die Frage auf, warum man ein Shape zu einer Gruppe hinzufügen sollte und nicht die Gruppe auflösen, mit dem neuen Shape markieren und wieder gruppieren soll.
Nun – die Antwort ist einfach: Beim Aufheben der Gruppe wird das Gruppenshape gelöscht. Das heißt: sämtliche Einstellungen der Gruppe verschwinden: Verbindungspunkte, Verhaltenseinstellungen, Schutzmechanismen, Daten, … Die müsste man danach alle wieder hinzufügen. Deshalb: besser ein Shape zu der Gruppe hinzufügen und Gruppen in Visio „flach“ lassen!

gruppe

Die Mastershapes

Gestern in der Visio-Schulung wollte ein Teilnehmer wissen, ob man nicht „den Verlauf“ löschen könnte. Also das Mitprotokollieren der verwendeten Shapes. Alle Master-Shapes, die aus einer Schablone auf das Zeichenblatt gezogen werden, werden in der Dokukmentschablone gespeichert. Auch wenn die Shapes von der Zeichnung gelöscht werden, sind sie trotzdem noch immer in der Schablone vorhanden und werden beim Weitergeben der Zeichnung mit weiter gegeben. Das ist vielleicht nicht immer gewünscht.
Antwort: nein, man kann dieses Verhalten nicht abschalten. Aber man kann nicht mehr benötigten Master-Shapes löschen. Über Datei | Informationen | Persönliche Informationen entfernen | Dateigrößenkomprimierung. Dort gibt es einen Schalter „Nicht verwendete Master-Shapes entfernen“. Und weg sind sie …

Kunst

Fast hätte ich es vergessen. Mein Kunst-Generierungsprogramm in das neue Visio-Buch einzufügen. Und den Code dazu:
Application.ActiveWindow.Selection.DeleteEx visDeleteNormal
intGrad = ActivePage.PageSheet.Cells(„Prop.Schwarzgrad“).Result(„“) For dblX = 1 To 32
For dblY = 1 To 32
Set vsRechteckshape = ActivePage.DrawRectangle _
(dblX / 2, dblY / 2, dblX / 2 + 0.5, dblY / 2 + 0.5)
dblZufall = Rnd * 100

If dblZufall < intGrad Then
vsRechteckshape.Cells(„FillForegnd“).Result(„“) = 0
End If
Next dblY
Next dblX

ActiveWindow.DeselectAll

grafik05 grafik06 grafik03 grafik04 grafik02 grafik01

Benutzerdefinierte Muster

Sie wussten das?
Benutzerdefinierte Muster können auch als Formatvorlagen abgespeichert werden. Umgekehrt können Formatvorlagen aber nur die Gestaltungselemente verwenden, die von Visio oder über andere Muster vorgegeben sind. Das bedeutet, dass Muster völlig neue Muster generiert, während Formatvorlagen nur auf vorhandene Muster zurückgreift. Erstaunlicherweise können selbstdefinierte Muster nicht an Designs gebunden werden. Aber Sie können Designs und Muster mischen.
Wie dies funktioniert kann in den drei Schablonen Benutzerdefinierte Muster – unskaliert, Benutzerdefinierte Muster – skaliert und Benutzerdefinierte Linienmuster in der Kategorie Visio-Extras eingesehen werden. Wird die Schablone geöffnet, stehen Ihnen auf der Zeichnung weitere Füllmuster oder Linienmuster zur Verfügung, mit denen gearbeitet werden kann. Welches Muster auf der Zeichnung verwendet wurde, lässt sich im Zeichnungsexplorer einsehen, wie Sie in der Abbildung sehen können.

Organigramme

Wollen wir das wirklich? Von Version zu Version verändert Visio seine Organigramme. Aber in Version 2013 mit seinen verschiedenen Mustern – runde Organigramme? Ist das schön? Ob das Firmen verwenden werden? Ich bin nicht so sicher …

organigramm