Rene_Martin – Seite 37 – Visio Training

Verbinder mit Bildern (?)

Ich gestehe – ich habe einen Moment überlegt, wie die Macher dieser Visio-Vorlage das „x“ und den Haken anstelle von den Texten ja und nein auf den Verbinder einfügen.

Wie kommen Haken und x auf den Verbinder?

Aber klar: Wenn man den Text editiert und nun über Einfügen / Symbol die Schriftart WingDings wählt, findet man dort am Ende diese beiden Symbole. Sie werden eingefügt und rot, beziehungsweise grün formatiert.

Schutz aufheben

Fremde Dateien „knacken“ ist klasse – also herauszubekommen, wie sie aufgebaut sind, und wie man mögliche Schutzmechanismen in Visio aufheben kann.

Bei dieser Datei konnte ich den grünen Hintergrund nicht markieren. Zuerst dachte ich, dass dieses Shape auf dem Hintergrund liegt. Aber ein Blick in den Zeichnungsexplorer zeigte, dass keine Hintergrundblätter vorhanden sind.

Im Kontextmenü des Dateinamens „Dokument schützen“ fand ich die Option, dass Shapes, Hintergründe und Mastershapes geschützt sind. Aha!

Also: Schutz raus. Nun besitzt das Shape Markierungspunkte, weist aber noch einen Schutz auf. Über Entwicklertools / Schutz kann dieser dann auch noch ausgeschaltet werden.

Grundeinstellungen

Und immer wieder die gleiche Frage in der Visio-Schulung: Plötzlich haben die neuen Rechtecke einen blauen Rand. Warum?

Die Antwort: Wenn Sie nichts markieren und dann formatieren: Linienart, Linienfarbe, Linienstärke, Füllfarbe, … dann werden diese Optionen als Grundeinstellungen für neue Rechtecke, Linien und Ellipsen verwendet.

Shapes anordnen

Eigentlich schade, dass Microsoft den Assistenten „Shapes anordnen“ nicht weiter nach vorne geholt hat, beziehungsweise überarbeitet hat. Denn mit seiner Hilfe kann man schnell Diagramme erstellen, bei denen Shapes viele Male nebeneinander und übereinander stehen.

Daten in Visio

Hallo Herr Dr. Martin,

ich hätte nochmal ein paar spezielle Fragen zu Visio.

Ich kann über VBA auf die Shape-Daten meiner Shapes auf dem Zeichenblatt zugreifen … ABER … Wie kann ich auf Shape-Daten von Schablonen über VBA zugreifen?

Und: Gibt es eine Möglichkeit die Shape-Daten eines Shapes auf einen Schlag komplett zu löschen?

Z.Zt. kann ich immer nur die einzelnen Elemente löschen aber nicht alle auf einmal.

###

Hallo Herr S.,

* Sie müssen auf alle offenen Dokumente in Visio zugreifen, überprüfen, ob es sich dabei um eine Schablone handelt, die Mastershapes auslesen und von ihnen die Daten auslesen.

*ich würde nicht auf die Shape-Datensätze zugreifen. Erstes weiß ich nicht, wo Visio diese abspeichert, zweites ist es mir zu unsicher und drittens vermute ich einen Bug darin (das an anderer Stelle). Ich würde auf Abschnitt und Zeilen der Shapes per Schleife zugreifen.

* Sie können den Abschnitt visSectionProp löschen – aber dann zickt er manchmal – oder besser: jede Zeile dieses Abschnittes.

Beispielsweise so:

Public Sub cmdDaten1(ByRef control As IRibbonControl)

Dim strDateien As String

Dim strSchablonen As String

Dim vsSchablone() As Document

Dim strMaster() As String

Dim vsMastershape As Master

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim m As Integer

Dim strSpapeDatenzeile As String

ReDim vsSchablone(0)

For i = 1 To Application.Documents.Count

‚ — durchlaufe alle offenen Dokumente

strDateien = strDateien & Application.Documents(i).Name & vbCr

If Application.Documents(i).Type = visTypeStencil Then

‚ — wenn du eine Schablone bist

ReDim Preserve vsSchablone(UBound(vsSchablone) + 1)

strSchablonen = strSchablonen & Application.Documents(i).Name & vbCr

Set vsSchablone(UBound(vsSchablone)) = Application.Documents(i)

End If

Next i

MsgBox „Liste der offenen Dateien:“ & vbCr & strDateien

MsgBox „Liste der offenen Schablonen:“ & vbCr & strSchablonen

For j = 1 To UBound(vsSchablone)

vsSchablone(j).Masters.GetNames strMaster

‚ — alle Mastershapes der Schablone

MsgBox „Liste der Mastershapes der Schablone “ & vsSchablone(j) & vbCr & Join(strMaster, vbCr)

For k = 0 To UBound(strMaster)

Set vsMastershape = Application.Documents(vsSchablone(j).Name).Masters(strMaster(k))

strSpapeDatenzeile = „“

If vsMastershape.Shapes(1).SectionExists(visSectionProp, False) = True Then

‚ — wenn Shapedaten im Mastershape vorhanden sind.

For m = 0 To vsMastershape.Shapes(1).Section(visSectionProp).Count – 1

strSpapeDatenzeile = strSpapeDatenzeile & vsMastershape.Shapes(1).Section(visSectionProp).Row(m).Cell(0).Name & vbCr

‚###############

‚ Cell(0): Value

‚ Cell(1): Prompt

‚ Cell(2): Label

‚ Cell(3): Format

‚ Cell(4): SortKey

‚ Cell(5): Type

‚ Cell(6): Invisible

‚ Cell(7): Verify

‚ Cell(8): DateLinked

‚###############

MsgBox „Mastershape „““ & vsMastershape.Name & „““ hat folgende Daten:“ & vbCr & strSpapeDatenzeile

End If

End Sub

Public Sub cmdDaten3(ByRef control As IRibbonControl)

Dim i As Integer

If ActiveWindow.Selection.Count = 0 Then

MsgBox „Sie haben kein Shape ausgewählt!“

ElseIf ActiveWindow.Selection.Count > 1 Then

MsgBox „Bitte markieren Sie nur ein Shape!“

Else

For i = ActiveWindow.Selection(1).Section(visSectionProp).Count – 1 To 0 Step -1

ActiveWindow.Selection(1).DeleteRow visSectionProp, i

MsgBox „Alle Zeilen der Shape-Daten wurden gelöscht!“

End If

End Sub

Public Sub cmdDaten2(ByRef control As IRibbonControl)

If ActiveWindow.Selection.Count = 0 Then

MsgBox „Sie haben kein Shape ausgewählt!“

ElseIf ActiveWindow.Selection.Count > 1 Then

MsgBox „Bitte markieren Sie nur ein Shape!“

Else

If ActiveWindow.Selection(1).SectionExists(visSectionProp, False) = True Then

ActiveWindow.Selection(1).DeleteSection visSectionProp

MsgBox „Abschnitt „“Shape-Daten““ wurde gelöscht!“

End If

End Sub

Neuer Tab in der Multifunktionsleiste

Hallo Herr Dr. Martin,
ich hätte nochmal ein paar spezielle Fragen zu Visio.
ich möchte gerne unter Visio eine eigene Registerkarte erstellen mit Untergruppen. In diesen Untergruppen möchte ich gerne Buttons haben die (vorhandene) Makros ausführen. ABER …

gibt es eine Möglichkeit die Makros auch unter Visio entsprechend im Menüband aufzurufen?
Vielen Dank
Mit freundlichen Grüssen
GS.
#####
Hallo Herr S.,
zu Ihren Fragen:
* Sie haben recht: in Excel kann man ein Makro direkt an ein Symbol hängen. In Visio nicht. Ich erstelle im XML-Archiv der Visio-Datei eine neue XML-Datei und füge dort die Buttons ein.

Dann weise ich ihnen den Befehl zu:

Public Sub cmdDaten3(ByRef control As IRibbonControl)

Daten visualisieren

Hübsche Sache, die wir gestern in der Visio-Schulung besprochen haben:

In einer Exceltabelle stehen Daten, die in Visio dargestellt werden sollen. Damit die Daten nicht ein zweites Mal abgeschrieben werden müssen habe ich vorgeschlagen die Tabelle über Daten / Benutzerdefinierter Import an die Zeichnung zu binden.

Auf eine Linie und auf ein Kästchen wird ein Datensatz gezogen. Dadurch erhält das Shape diese Informationen als Daten. Damit sie angezeigt werden, editiert man den Text ([F2]) und fügt das Datenfeld ein (Einfügen / Feld). Der Verbinder und das Kästchen können in einer Schablone gespeichert werden (zuvor sollte man die Verknüpfung der Datentabelle zu kappen). Damit die Linienstärke entsprechend der Größe der Daten angepasst wird, wird im ShapeSheet im Abschnitt „LineFormat“ in der Zelle „LineWeight“ eine Formel eingetragen, beispielsweise so:

=IF(Prop._VisDM_Einnahmen_Finanz>1000000,10 mm,
IF(Prop._VisDM_Einnahmen_Finanz>100000,5 mm,
IF(Prop._VisDM_Einnahmen_Finanz>10000,3 mm,
IF(Prop._VisDM_Einnahmen_Finanz>1000,2 mm,1 mm))))

Die Linienstärke nimmt Bezug auf das Datenfeld.

Unglücklicherweise zeigt Excel die Daten ein zweites Mal über eine Datengrafik auf dem Shape an. Da das nicht gewünscht ist, muss man in dieser Datengrafik die Felder löschen.

Und nun können die Datensätze auf das Diagramm gezogen werden.

Six Sigma

Auf der Suche nach einer bestimmten Datei bin ich heute auf ein Beispiel gestoßen, das Microsoft in Visio 2000 mitgeliefert hat. Die Vorlage Six Sigma-Diagramm – oder genauer: die Shapes in der Schablone Six-Sigma-House of Qualitiy-Shapes – haben sich in den letzten Versionen schon sehr verändert. Über das Kontextmenü können noch weitere Varianten eingestellt werden.

Layer und Ebenen in Visio 2016

Ich verstehe es nicht ganz. Während in der Registerkarte Start in der Gruppe Bearbeiten die Symbole mit „Layer“ beschriftet sind, werden sie in sämtlichen Dialogen (Layer zuweisen, Layereigenschaften, Markieren / Nach Typ auswählen, Überprüfen / Shape-Berichte) mit „Ebenen“ bezeichnet (was übrigens sprachlich nicht korrekt ist). Hätte man das nicht einheitlich benennen können. Warum belässt man nicht den Begriff „Layer“?

Visio 2016 – Backstagebereich

Visio 2016 gruppiert im Backstagebereich die Dateien nach Bearbeitungsdatum. Eigentlich ganz praktisch,