Autor: Rene_Martin

Liste der Mastershapes

Warum nicht Excel verwenden, um eine Übersicht für seine Shapes zu erstellen. Bilder kann man prima in Zellen einfügen. Für das Filtern sollte die Option „von Zellposition und -größe anhängig“ ändern in (in „Größe und Eigenschaft“).

Verbinder verbinden

Hallo!
Sofern ich es richtig verstehe, wird der Text des Verbinders nicht in die -synchronisierten Kopien- übermittelt – Ich würde mit dem -Verbinder-Text- gerne Abteilungen in einem Organigramm benennen, jedoch würde es wenig Sinn haben, wenn diese nicht auf andere Zeichenblätter übertragen werden. Gibt es einen Trick?
ich wüsste keinen Trick. Wenn es sich nur um einen Text (oder um einige wenige Texte) handelt, kann man natürlich im ShapeSheet einen Verweis einfügen:
=SHAPETEXT(Pages[Page-1]!Dynamic connector.32!TheText)

Datengrafik

Hallo Herr Martin,
Noch eine Frage zu Visio:
Ich würde die Prozesslandkarte gerne für eine Reifegradanalyse nutzen.
Das heißt konkret, dass in jedem Shape der Reifegrad in drei Stufen angegeben werden kann. Abhängig von der Angabe des Reifegrads (Bsp. niedrig, mittel, hoch) soll in oder neben dem Shape eine Ampel mit entsprechender Ampelfarbe angezeigt werden.
Die Angaben über die Reifegarde sollten aus Visio nach Excel für Auswertungen exportiert werden können.
Wie schätzen Sie die technische Umsetzung dieser Idee ein?
#####
Hallo Herr H.,
ich würde das mit einer Datengrafik lösen: definieren Sie ein Datenfeld (z.B. „Reifegrad“). Sie können sich den Text als Feld anzeigen lassen (Einfügen / Feld).
Dann wechseln Sie in die Registerkarte „Daten“, öffnen den Dialog „erweiterte Datengrafiken“ und erstellen eine Datengrafik.

Dynamische Verbinderfarbe

Gestern in der Visio-Schulung haben wir einen Verbinder erstellt. Wenn er nicht klebt, ist die Linienfarbe orange. Wurde in den Daten die Eigenschaft „Nützlich“ im Datenfeld „Kategorie“ eingestellt, ist er schwarz, wurde der Wert auf „schädlich“ geändert, wird die Linienfarbe rot.
Wir haben im Shapesheet zwei benutzerdefinierte Zellen definiert: KlebeverhaltenLinks und KlebeverhaltenRechts mit den Formeln:
=LEFT(FORMAT(EVALCELL(BeginX),“@“),3)
=LEFT(FORMAT(EVALCELL(EndX),“@“),3)
In der Zelle „LineColor“ im Abschnitt „Line Format“ steht die Formel:
=GUARD(IF(AND(STRSAME(User.KlebeverhaltenLinks,“PKT“),STRSAME(User.KlebeverhaltenRechts,“PKT“)),IF(STRSAME(Prop.Kategorie,“Schädlich“),RGB(255,0,0),RGB(0,0,0)),RGB(255,204,49)))

Punkte auf dem Verbinder

Wenn Sie in Visio einen verbinder beschriften haben Sie zwei Punkte, die sehr nahe beieinander liegen: das gelbe Steuerelement, mit dessen Hilfe Sie den Text verschieben können und den blauen Knoten, der für den Lauf der Linie verantwortlich ist. Vergrößern Sie den Zoom, damit Sie sehen, welchen dieser beiden Punkte Sie verschieben möchten!

Daten visualisieren

Man muss in Visio nicht immer mit den Datengrafiken visualisieren. Man kann auch eine Beziehung zwischen Shape und Daten herstellen – schon kann man über die Größe eine Beziehung der einzelnen Elemente zueinander darstellen (hier: Passagiere / Flughafen)

QuickInfo programmieren

Hallo Rene,
Und jetzt hoffe ich auch noch auf Hinweise von Dir, weil ich wieder einmal Nichts finde…
Ich habe schon mehrfach die „Quick-Info“ für die Buttons benutzt. Gern würde ich auch die „Shape-QuickInfo“ benutzen.
Allerdings nicht nur, wie hier gezeigt, auf der Oberfläche, sondern als Variable im Programm, so dass ich einem Shape eine spezielle vom Programmablauf abhängige Info zuordnen kann.
In der Hilfe gibt es nicht einmal den Begriff Shape-QuickInfo….
Kannst Du mir helfen, wie das funktioniert?
####
Hallo Wolfgang,
Und: der Text des QuickInfos ist in der Zelle „Comment“ in der Gruppe „Miscellaneous“ gespeichert. Dort kannst du ihn eintragen:
Dim strText As String
strText = InputBox(„welcher Text?“)
ActivePage.Shapes(„CommandButton1“).Cells(„Comment“).FormulaU = „=“““ & strText & „“““
 
Ein Umbruch wird mit vbCr erzeugt.

Formula und FormulaForce

Hallo Herr Martin,

Nun habe ich doch eine Frage.
Ich experimentiere gerade mit der GUARD – Funktion. Ziel ist es die Shapes auf dem Hintergrund zu sichern.
Die Funktion „Schutz“ über das Entwicklermenü ist nicht mehr wirklich eine Hürde für meine Kollegen. Daher soll nun GUARD ins Spiel kommen.

Mein Problem ist nun wie folgt:
Ich habe zwei kleine Scripte, welches den Schutz setzt und wieder aufheben soll. Siehe Anhang
Das Setzen des Schutze geht wunderbar.
Das Rücksetzen wird immer mit dieser Fehlermeldung quittiert:

Hallo Herr H.,

das ist eine leichte Frage – Sie müssen die Eigenschaft FormulaForceU statt FormulaU verwenden.

Werfen Sie mal einen Blick in mein Buch – dort liste ich dir Unterschiede zwischen
Formula, FormulaU, FormulaForceU, Result, … auf .