Pfingsten

Pfingsten heißt auf Russisch Троица (troitza) – die Dreieinigkeit.
Ein Besuch in einem Museum (Luxemburg) hat mich auf die Idee gebracht, ein Bild, das ich dort gesehen habe, in Visio nachzugestalten. Und die Farben zufällig zu vergeben.
Mit einer Schliefe und einer Zufallsvariablen können schnell die Farben geändert werden. Hier ein Ausschnitt des Codes:
[…]
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
[…]
Das Beispiel finden Sie unter
http://www.visio-training.de/bsp/farben.vsd
Ich wünsche allen schöne Pfingsttage.

robert_farben

robert_farben2

Schreibe einen Kommentar

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