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.
