Kategorie: Beispiele

Visio ist einfach ein prima Programm, um Sachverhalte zu visualisieren. Auch wenn die Inhalte manchmal gar nicht komisch sind.

Am Wochenende im Kunstmuseum. Zeitgenössische Kunst angesehen. Wieder einmal begeistert von Mustern. Das kann man mit Visio doch auch?
Klar: Ein paar Zeilen Code und fertig ist das Zufallskunstwerk:
Sub MacheBunt()
Dim intRot As Integer
Dim intGrün As Integer
Dim intBlau As Integer
Dim strFormel30 As String
Dim strFormelMinus30 As String
Dim strFormelMinus90 As String
Dim i As Integer
Randomize
intRot = Int(255 * Rnd)
intGrün = Int(255 * Rnd)
intBlau = Int(255 * Rnd)
strFormel30 = „=RGB(“ & intRot & „;“ & intGrün & „;“ & intBlau & „)“
Randomize
intRot = Int(255 * Rnd)
intGrün = Int(255 * Rnd)
intBlau = Int(255 * Rnd)
strFormelMinus30 = „=RGB(“ & intRot & „;“ & intGrün & „;“ & intBlau & „)“
Randomize
intRot = Int(255 * Rnd)
intGrün = Int(255 * Rnd)
intBlau = Int(255 * Rnd)
strFormelMinus90 = „=RGB(“ & intRot & „;“ & intGrün & „;“ & intBlau & „)“
For i = 1 To ActivePage.Shapes.Count
If ActivePage.Shapes(i).Cells(„Angle“).Result(„deg“) = 30 Then
ActivePage.Shapes(i).Cells(„FillForegnd“).Formula = strFormel30
ElseIf CInt(ActivePage.Shapes(i).Cells(„Angle“).Result(„deg“)) = -30 Then
ActivePage.Shapes(i).Cells(„FillForegnd“).Formula = strFormelMinus30
ElseIf CInt(ActivePage.Shapes(i).Cells(„Angle“).Result(„deg“)) = -90 Then
ActivePage.Shapes(i).Cells(„FillForegnd“).Formula = strFormelMinus90
End If
Next i
End Sub

In der letzten Ausgabe der ct war ein langer Artikel über Präsentationstechniken. Zugegeben: Visio ist sicherlich kein Präsentationsprogramm, aber durch die Hyperlinkfähigkeit der Shapes und über die Möglichkeit über Ansicht / Ansichten / Präsentationsmodus in die Vollbildschirmansicht zu wechseln, kann man schon interaktive Zeichnungen erstellen.

In der letzten Ausgabe der Zeitschrift ct war ein Artikel zum Thema „Infografik mal anders“ zu lesen. Abgesehen davon, dass der Artikel qualitativ nicht sehr gut war, habe ich bedauert, dass Visio leider nicht erwähnt wurde – denn damit kann man leicht Infografiken – abseits von Balken, Linien und Kreisen – erstellen.

Ein anderes Beispiel

Ich habe es mal versucht – ganz überzeugend ist das Ergebnis nicht gelungen: die Christopher-Street-Day-Veranstaltungen des deutschsprachigen Raumes mit Hilfe einer Zeitachse darzustellen. Dabei habe ich festgestellt, dass die Texte nicht an jeder Stelle im Verhältnis zur Zeitachse platzierbar sind. Deshalb musste ich die Achse weit unter der Landkarte positionieren.

Och, Leute – macht doch ein Diagramm in Visio und nicht in PowerPoint. Das geht schneller, ist ordentlicher und kann leichter nachbearbeitet werden …

Letzte Woche hat mir jemand ein Diagramm gezeigt, das in der Firma in Excel erstellt wurde. Warum nicht Visio, habe ich mich gefragt. Vor allem: in dieser Firma wird Visio eingesetzt. Ich verstehe so etwas nicht …

Letzte Woche in der Visio-Schulung kam die Frage, ob Visio denn Polylines besitzt. Ja und nein war meine Antwort. Nein, weil es DIESEN Begriff in Visio nicht gibt. Natürlich unterstützt Visio Splines und Bezierkurven. Am einfachsten zeichnet man sie, indem man mit dem Linien- oder Bleistiftwerkzeug an das Ende einer Linie eine weitere Linie anfügt. Wird der letzte Punkt auf dem ersten platziert, dann ist das Objekt geschlossen. Will man mehrere Linien-Objekte miteinander kombinieren, muss man die einzelnen Linien markieren und über Entwicklertools / Shape-Design / Vorgänge / Verbinden (nicht Gesamtmenge – dieser Vorgang ist für Rechtecke reserviert!). So kann man komplexe Objekte erstellen, wie beispielsweise die Wostok, in der Juri Gagarin 1961 die Welt umrundete.

Gestern Abend habe ich doch einen peinlichen Tippfehler in einem Beispiel gefunden: die Hexe von Donald Duck, die ich als einen der Dummy-Namen verwendet habe, heißt tatsächlich Gundel Gaukeley. Da habe ich glatt ein „e“ verschluckt.

okay, die Idee ist den Smart-Arts von PowerPoint entnommen. Aber mit Visio geht es auch. Ein Puzzle zu erstellen. Nur schade, dass Microsoft die Puzzleteile aus Visio 2010 herausgenommen hat.