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
