Kunst

Fast hätte ich es vergessen. Mein Kunst-Generierungsprogramm in das neue Visio-Buch einzufügen. Und den Code dazu:
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

grafik05 grafik06 grafik03 grafik04 grafik02 grafik01

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.