Beispiele (Download)

Intelligenter Block

Hübsche Frage heute in der Visio-Schulung. Wir hätten gerne einen Block, der beim Herausziehen Informationen abfragt. Diese Informationen sollen an bestimmte Stellen des Blocks geschrieben werden. Außerdem soll der Block in der rechten unteren Ecke stehen. Das letzte ist schnell realisiert: Im ShapeSheet wird in der Zelle PinX eingetragen: =GUARD(ThePage!PageWidth-10 mm) Bei PinY: =GUARD(10mm) Für … Continue reading Intelligenter Block

Hyperlink

Heute fragte ein Teilnehmer in der Visio-Schulung, ob man auf eine andere Visio-Datei und dort auf ein bestimmtes Zeichenblatt verlinken kann. „Klar“ lautet die Antwort. Sobald die Datei ausgewählt wurde, zeigt Visio die Namen der einzelnen Zeichenblätter an.

Das Fenster „Shapedaten“

Es ist einfach und effektiv. Ein Kunde hat an ein Zeichenblatt Datenfelder gebunden, die in einem Anmerkungsfeld rechts unten angezeigt werden. Da einige Benutzer dieses Fenster schließen, ist ein Mechanismus vonnöten, mit dem man wieder schnell öffnen kann. Na – eine Zeile „Action“ im ShapeShape. Der Befehl DoCmd(1312) öffnet jedoch das allgemeine, über dem Blatt … Continue reading Das Fenster „Shapedaten“

Layer verschwinden?

Eine interessante Sache, die mir bislang nicht aufgefallen ist. Für eine Vorlage habe ich einen Anmerkungsblock erstellt. Damit niemand diesen Block ändert, löscht oder verschiebt, habe ich ihn auf einen Layer(block) gelegt. Und diesen gesperrt. Eigentlich wäre es praktisch, dachte ich mir, diesen Layer auch für den Rahmen zu verwenden. Erstaunlicherweise taucht der Layername „block“ … Continue reading Layer verschwinden?

Daten suchen

Auch schade: An eine Visio-Zeichnung wird eine Excel-Tabelle mit zirka 10.000 Datensätzen gebunden. Damit man den richtigen Datensatz an das entsprechende Shape ziehen kann, wäre eine Suchfunktion in den externen Daten schön. Gibt es aber leider nicht ….

Daten verknüpfen

Verknüpft man in eine Access-Datenbank Tabellen aus einer anderen Datenquelle (beispielsweise einer anderen Access-DB oder dem SQL-Server), dann können die Daten nicht an eine Visio-Zeichnung verknüpft werden.

Zufallskunst

Ein paar Zeilen Code und schon entsteht ein „Zufallskunstwerk“. Auf die Idee hat mich François Morellet gebracht – mit seiner Ausstellung in Caen. Und hier der Code: Dim i As Integer ActiveWindow.SelectAll ActiveWindow.Selection.Delete Randomize For i = 1 To 100 ActivePage.DrawLine 8.2 * Rnd, 8.2 * Rnd, 8.2 * Rnd, 11.8 * Rnd Next ActiveWindow.DeselectAll

Steuerelemente / Controls

Eine Firma möchte für Ihre technischen Zeichnungen einen Funktionsrahmen haben. Er soll jedoch nicht nur als Rechteck dargestellt werden, sondern möglicherweise Ausbuchtungen besitzen. Nun – ein paar Zeilen Code im ShapeSheet und einige Steuerelemente ermöglichen dies.

Animation mit Visio

Ein bisschen Spielerei, ein paar Zeilen Code. Ja, ja, ich weiß: Visio ist sicherlich nicht das beste Programm, um solche „Zeichnungen“ zu animieren. Dennoch: wer den Code einsehen möchte: (in der Routine „Verzögern“ ist eine Schleife und der Befehl DoEvents eingebaut – sonst wäre das Glas zu schnell fertig). Set vsShape = ActivePage.DrawRectangle(2, 2, 6, … Continue reading Animation mit Visio