Kategorie: Beispiele

Gestern begann in München das 181 Oktoberfest. Ich mache mich auf die Suche nach einem Maßkrug für Visio und werde auf der Seite
http://www.visguy.com/
fündig, wo auch noch viele andere Visio-Shapes zum Download bereit stehen. Über das Kontextmenü kann man übrigens den Schaum ein- und ausblenden.

Wenn ich in Visio ein Shape dupliziere, verwende ich niemals die Tastenkombinationen [Strg]+[C] und [Strg]+[V]. Der Grund – das Shape wird an irgendeiner Stelle auf dem Zeichenblatt platziert (meistens in der Mitte des Bildschirms). Besser ist es, das Shape mit der Maus zu verschieben und beim Verschieben die [Strg]-Taste gedrückt zu halten. Soll das neue Shape auf der gleichen Höhe (oder auf der gleichen vertikalen Achse) wie das erste Shape liegen, kann man zusätzlich die [Shift]-Taste gedrückt halten. Diese Aktion kann mit der Funktionstaste [F4] (oder [Strg]+[Y]) wiederholt werden. Und so erhält man sehr schnell einige Tausend Shapes, wenn die erste Reihe auf die gleiche Art in die zweite Zeile dupliziert wird und danach diese Aktion wiederholt wird.

Übrigens: Während in München zirka 7.000.000 Liter Bier getrunken (eigentlich nur verkauft – ich bin nicht sicher, ob alle Maßkrüge einen Liter Bier enthalten und ob sie bis zum Ende getrunken werden), benötigen diese 3.200 Shapes mehr als 5 MByte Speicherplatz.

Oktoberfest III

Man kann auch per Programmierung Bierkrüge erzeugen.
Dazu wird das Shape in einer Schablone abgespeichert. Das Mastershape trägt den Namen „Maßkrug“, die Schablone heißt „Bier“.
Um per Programmierung den Maßkrug auf das Zeichenblatt zu ziehen, benötigt man folgende Codezeilen:
Sub EinBier()
Dim vsSchablone As Document
Dim vsMaster As Master
Set vsSchablone = Application.Documents(„Bier.vssx“)
Set vsMaster = vsSchablone.Masters(„Maßkrug“)
ActivePage.Drop vsMaster, 1, 5
End Sub
Zur Erklärung:
das Objekt vsSchablone verweist auf die Schablone, das Objekt vsMaster auf das darin befindliche Mastershape. Die Methode Drop, angewandt auf die Seite, „zieht“ das Mastershape auf das Blatt. Es wird an den Positionen X = 1 und Y = 5 platziert. Die Einheiten dieser Koordinaten in Inch.
Zugegeben: Man müsste noch überprüfen, ob das Mastershape in der Schablone vorhanden ist, bzw. ob die Schablone überhaupt offen ist.
Übrigens: auf dem Oktoberfest verteilen zirka 1.600 Kellnerinnen und Kellner Bier. Hoffentlich lassen sie es nicht fallen!

Oktoberfest IV

Ein Shape alleine ist witzlos. Man kann mit einer Schleife mehrere Shapes erzeugen. Damit die Shapes zufällig auf der Seite angeordnet werden, verwende ich die Funktion Rnd. Sie liefert eine Zahl zwischen 0 und 1. Diese Zahl wird mit der Seitenbreite und Seitenhöhe multipliziert:

Sub VieleBiere()
Dim i As Long
Dim vsSchablone As Document
Dim vsMaster As Master
Dim vsShape As Shape
Dim dblX As Double
Dim dblY As Double
Set vsSchablone = Application.Documents(„Bier.vssx“)
Set vsMaster = vsSchablone.Masters(„Maßkrug“)
Randomize
For i = 1 To ANZAHLBIERE
dblX = Rnd * ActivePage.PageSheet.Cells(„PageWidth“).Result(„in“)
dblY = Rnd * ActivePage.PageSheet.Cells(„PageHeight“).Result(„in“)
Set vsShape = ActivePage.Drop(vsMaster, dblX, dblY)
Next
End Sub
Übrigens: Auch in diesem Jahr werden zirka sieben Millionen Besucher auf dem Oktoberfest erwartet, von denen die meisten Bier trinken werden.

Oktoberfest V

Const ANZAHLBIERE As Long = 2000

Wenn man die Konstante erhöht, beispielsweise auf 2.000, also folgendermaßen, dann sieht die Zeichnung beispielsweise wie folgt aus.
Übrigens nennt Manfred Schauer, der das älteste Geschäft auf dem Oktoberfest betreibt – das Schichtl – das Oktoberfest schlicht „Intersuff“.

Oktoberfest VI

Bei den Shapes steht die Höhe im Verhältnis zur Breite. In der Zelle Width befindet sich die Formel:
=BOUND(25.4 mm,0,0,Height*4/3,Height*1000)
Deshalb kann man die Größe zufällig berechnen lassen, indem man folgende Codezeilen einfügt:
dblGröße = Rnd * 10
Set vsShape = ActivePage.Drop(vsMaster, dblX, dblY)
vsShape.Cells(„Height“).Result(„in“) = vsShape.Cells(„Height“).Result(„in“) * dblGröße
Das Ergebnis bei ANZAHLBIERE As Long = 200 sieht man im Screenshot.
Übrigens: Für die nötigen Bedürfnisse der Besucher des Oktoberfestes stehen rund 1800 Klosetts und Urinale zur Verfügung.

Oktoberfest VII

Natürlich sollte man die Shapes löschen. Das kann man mit einer Schleife oder schneller mit dem Befehl:

ActiveWindow.SelectAll
ActiveWindow.Selection.Delete
Dann kann man das Programm erneut starten lassen.
Übrigens: Die Augustiner Brauerei verwendet als einzige noch die traditionellen Holzfässer, die so genannten Hirschen, zur Lagerung des Bieres.

Oktoberfest VIII

Natürlich kann man auch noch einen zufälligen Winkel erzeugen:

dblWinkel = Rnd * 360
vsShape.Cells(„Angle“).Result(„deg“) = dblWinkel
Führt man den Befehl aus, wird der Bildschirm erst nach Beendigung des Makros aktualisiert.
Mit dem Befehl DoEvents kann man sich die einzelnen Schritte des Makros anzeigen lassen, während es läuft.
Übrigens: Speziell für das Münchner Oktoberfest wird von den Münchner Brauereien ein eigenes Bier (Wiesn-Mätzn) mit mehr Stammwürze und somit auch mehr Alkoholgehalt gebraut.

In Visio 2010 gelangte man über den Befehl „Shapes online suchen“ auf die Internetseite
http://www.microsoft.com/de-de/download/confirmation.aspx?id=13443
Dort kann man sich beispielsweise Landkartenshapes herunterladen (Schablone Weltkarten.vss). Wählt man aus einer der Länder über das Kontextmenü den Befehl „An Shape anpassen“ aus, wählt man danach ein weiteres Shape aus, so wird das erste Shape in Verhältnis von Größe und Position zum ersten Shape platziert. So könnte man Norwegen zu Großbritannien positionieren. Zumindest, so lange noch Schottland zum Vereinigten Königreich gehört.
Übrigens erstaunt es mich, dass in der Schablone kein Shape für Indien existiert …

Letzte Woche im Patentamt. Eine Dame drückt mir eine Informationsbroschüre zum Patentschutz in die Hand. Eine gute Gelegenheit, den Weg zum Patent mit Visio darzustellen.

Alle reden von der Wahl nächste Woche, in der die Schotten über eine Abspaltung von Großbritannien entscheiden. Zeit, um sich in Visio die Verteilung des Nordseeöls (denn darum geht es auch) zu visualisieren.

Übrigens: Visio-Zeichnungen lassen sich problemlos in Photoshop einfügen. Mit einem freigestellten Bild kann man dann gute Effekte erzielen.

Nicaragua plant einen Kanal durch den mittelamerikanischen Kontinent zu treiben – so wie es Panama bereits vorgemacht hat. Die 287 Kilometer von der Mündung des Rio Punta Gorda in der Karibik sollen durch den Nicaragua-See bis zur Mündung des Rio Brito am Pazifik führen. Über diesen Kanal sollen 5% des Welthandels laufen; viele neue Jobs sollen so in dem armen Land geschaffen werden. Wir sind gespannt und zeichnen das Projekt schon mal in Visio. Die Shapes stammen übrigens aus der Landkartenschablone, die man auf der Microsoft-Seite herunterladen kann.

Morgen spielt Argentinien. Nun ja – nicht das ganze Land – nur die Nationalmannschaft. Eben – natürlich zeichnen wir mit Visio auch nicht das ganze Land nach, sondern „nur“ die Halbinsel Valdés an der Atlantikküste.

Eigentlich geht dies nicht – eine Linie mit unterschiedlichen Linienstärken in Visio zu erstellen. Also muss man die Linie aus zwei Linien erzeugen, die dann geschlossen sind. Hierzu eignen sich die Werkzeuge Linie, Freihandform, Bogen und Bleistift sehr gut.

Alle reden über Fußball. Wir nicht. Wir reden über Visio.
Lassen Sie uns die Standorte der WM, die in einer Woche in Brasilien beginnt, darstellen. Mit Hilfe der Datengrafiken kann man die Namen und Kapazitäten der Stadien darstellen.

Alle reden von Fußball – nur wir reden von Visio.

Mit den Datengrafiken kann man leicht die Verletzungen eines Fußballers – hier Ballack – anzeigen lassen. Hoffen wir, dass die Fußballer in Brasilien keine Verletzungen davontragen.

Alle reden über Fußball – wir reden über Visio.

Okay – die Idee ist vom „Fußballspiel der Philosophen“ der Komikergruppe Monty Python „geklaut“ und visualisiert. Warum auch nicht …

Alle reden über Fußball – nur wir reden über Visio.

Mit der Vorlage „Standarddiagramm“ und „Blockdiagramm“ kann schnell eine Zeichnung erstellt werden, in der verschiedene Teile (hier Sportartikelhersteller und die von ihnen unterstützten Mannschaften) dargestellt werden können.

Alle reden über Fußball – nur wir reden über Visio.

Oder: Public Viewing schnell gezeichnet; allerdings mit dem „falschen“ Stadion.

Public Viewing II – oder: Es wird schrecklich werden!
Übringens: Mit Visio kann man mit gedrückter [Strg]-Taste schnell Shapes duplizieren und diese Aktion mit [F4] wiederholen. Damit das duplizierte Shape auf der gleichen Höhe bleibt, kann man zusätzlich die [Shift]-Taste drücken.

Alle reden über Fußball – nur wir reden über Visio.
Nur noch vier Jahre bis zur nächsten WM – diesmal in Russland. Das heißt: schnell Flug und Hotels buchen, solange es noch etwas gibt. Andererseits – vielleicht liegen die Austragungsorte dann ja in der ehemaligen Ukraine.

In den letzten Wochen schaltete Microsoft vermehrt Werbeanzeigen für die Cloud. Eigentlich kann man die beiden Linien, die gleichzeitig übereinander als auch untereinander liegen so mit Visio nicht nachbauen. Aber mit einem kleinen Trick geht es doch …