Beispiele (Download)

Schatten

Guten Tag, Wenn ich in Visio 2016 ein Shape zeichne erstellt es mir immer einen Schatten. Wo kann ich das deaktivieren? Freundlicher Gruss R. Hallo Herr C., ich vermute, Sie verwenden eine sehr alte Visio-Version. Früher hatte Visio „Schatten“, die konnte man in den Fülloptionen einstellen. Sie wurden durch die Effekte ersetzt. Es gibt aber … Continue reading Schatten

Daten und Datengrafik

Eine hübsche Frage zu Visio: An eine Zeichnung wird eine Exceltabelle gebunden mit technischen Informationen. Einige davon werden über eine Datengrafik angezeigt. Die Frage: Ich möchte die Texte ein klein wenig verschieben. Leider sind die Datengrafiken etwas sperrig in Bezug auf die Anpassung, beispielsweise von Textpositionen. Ich schlage vor ein eigenes Shape zu erstellen. Eine … Continue reading Daten und Datengrafik

Externe Daten

Wenn man in Visio externe Daten an eine Datei bindet, kann man leicht per Programmierung darauf zugreifen. MsgBox ActiveDocument.DataRecordsets(1).CommandString zeigt, dass ein SQL-Befehl dahinter liegt. Mit einer Schleife kann man beispielsweise alle Namen auslesen: ActiveDocument.DataRecordsets(1).DataColumns(j).Name

DrawOval

In Visio kann man mit dem Befehl DrawRectangle und DrawOval ein Rechteck, beziehungsweise eine Ellipse zeichnen. Wer braucht denn so etwas? Sie können diese Funktion verwenden, um in einer »durchgerechneten« Zeichnung Shapes kennzeichnen, die richtig positioniert, geklebt, beschriftet, … wurden. In folgendem Code wurden sämtliche Shapes in einem Datenfeld »eingesammelt« und dann ausgewertet. Die Shapes, … Continue reading DrawOval

Liniensprünge

Wenn Sie in Visio das Liniensprungformat „Bogen“ in Seite einrichten / Layout und Routing verwenden, ist häufig „Nacharbeit“ gefragt. Amüsant übrigens: Wenn Verbinderlinien sehr eng nebeneinander laufen, erzeugt Visio große Bögen. „Lücken“ als Linienspungformat sind häufig angenehmer.

Größe der Festplatte visualisieren

Ein paar Zeilen Code und man kann sich die Größe der Festplatte visualisieren lassen: Sub Festplatte() Dim lngFestplattengröße As Double Dim lngFreierPlatz As Double Dim i As Integer lngFestplattengröße = GetDriveSpace(Left(Application.Path, 2), DRIVE_TOTALSIZE) / 1000000 For i = 1 To 6 ActivePage.Shapes(„Text“ & i).Text = Format(Int(lngFestplattengröße / 7) * i / 1000, „#,##0“) Next i … Continue reading Größe der Festplatte visualisieren

Shape-Reports

Schöne Aufgabe. An eine Visio-Zeichnung wurden externe Daten gebunden: Eine Exceltabelle mit Informationen zu Racks. Die Aufgabe: Pro Gestell sollen die Infomationen der Racks zusammengefasst werden. Nichts leichter als das – dafür stellt Visio einen Assistenten Shape-Berichte zur Verfügung. Doch schon bei der ersten Frage zögere ich – welche Shapes sollen denn eingesammelt werden? Ich … Continue reading Shape-Reports

Dynamische Breite und Höhe

Hallo Herr Martin, in einer excel Tabelle habe ich flächen mit den jeweiligen abmaßen beschrieben. Ist es möglich diese Tabelle mit visio derart zu verknüpfen, dass die shapes (ähnlich wie in der netzwerkverknüpfung die sie beschrieben haben und die Formatierung der shapes beeinflusst haben) direkt in der beschriebenen Größe erzeugt werden? Wenn ja, ist das … Continue reading Dynamische Breite und Höhe