Microsoft Visio 2013 - Das Handbuch

Ein Scherz?

Da es um die Visualisierung von Sachverhalten geht, kann natürlich auch schnell mit Hilfe eines Zufallsgenerators eine Grafik erzeugt werden. In einem Datenfeld des Zeichenblatts wird eine Zahl zwischen 0 und 100 eingetragen. Die Funktion Rnd liefert eine (fast) zufällige Zahl. Sie kann so Rechtecke auf einem Zeichenblatt zufällig einfärben:

Application.ActiveWindow.Selection.DeleteEx visDeleteNormal intGrad = ActivePage.PageSheet.Cells("Prop.Schwarzgrad").Result("") For dblX = 1 To 32 For dblY = 1 To 32 Set vsRechteckshape = ActivePage.DrawRectangle _ (dblX / 2, dblY / 2, dblX / 2 + 0.5, dblY / 2 + 0.5) dblZufall = Rnd * 100 If dblZufall < intGrad Then vsRechteckshape.Cells("FillForegnd").Result("") = 0 End If Next dblY Next dblX ActiveWindow.DeselectAll ...