Beispiele (Download)

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 … Continue reading Nicht druckbar und nicht sichtbar

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].

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 … Continue reading Multishape

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 … Continue reading Länge einer Linie: LengthIU

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 … Continue reading Ein weiterer Bug – im ShapeSheet

Ansichten …

Sehr geehrter Herr Martin, ich habe ein Anliegen bzgl. eines Fehlers der Bemaßungsshapes in Visio, den Sie in dem angehängten Screenshot sehen können. Aufgetreten ist er bei mir durch einen Computerwechsel, allerdings hatten meine Kollegen diesen Fehler auch schon einmal, und er taucht immer auf wenn ich rein- oder rauszoome sowie den Drucker auswähle. Wie … Continue reading Ansichten …

Das Legendenshape

Ich gebe zu – das Legendenshape in der Schablone „Netzwerk- und Peripheriegerät“ ist mir bislang entgangen. Dabei sehr interessant! Es sammelt nicht nur Netzwerkshapes ein, sondern auch beliebige andere. Diese müssen zuvor auf die Legende gezogen werden, damit dieses Shape sie „erkennt“. Außerdem kann das Shape über das Kontextmenü konfiguriert werden.

Zeichnung zentrieren

Gestern in der Visio-Schulung kam die Frage, wie man eine Zeichnung auf dem Zeichenblatt zentriert. Die Antwort: Gar nicht! Die einzige Möglichkeit besteht darin zwei Hilfslinien zu platzieren – beide mit dem gleichen Abstand vom Papierrand entfernt. Und dazwischen die Zeichnung einzuspannen.