RGB-Farben
01.12.2004 12:20:45
Werner
Über ein Makro, dass ich im Forum bekam und meinen Bedürfnissen anpasste, werden Freihandflächen farblich nach eingegebenen statistischen Werten verändert. Dabei wird der Excel-Farbindex benutzt. Wie ist das Makro zu ändern, um auf RGB-Farben zugreifen zu können. Ich benötige eigentlich nur wenige Grundfarben, die jedoch je nach Höhe des zugrundegelegten Wertes abgestuft (also immer dunkler) sind.
Da die Beispieldatei für ein Upload zu groß ist, habe ich den Teil des Makros, der sich mit den Farben befasst, einkopiert.
Ich danke vorab für die Unterstützung.
Gruß
Werner
' Farbe festlegen
Dim iColor As Integer
Dim oShape As Shape
' Farbe festlegen
Select Case Target
Case [b7]: iColor = 22
Case Is Case [b8] To [b9]: iColor = 11
Case [b9] To [b10]: iColor = 13
Case [b10] To [b11]: iColor = 52
Case [b11] To [b12]: iColor = 2
Case [b12] To [b13]: iColor = 16
Case [b13] To [b14]: iColor = 15
Case [b14] To [b15]: iColor = 12
Case Is > [b15]: iColor = 18
End Select
Am Ende des Makros folgt dieser Teil:
' Form einfärben
With oShape
.Fill.ForeColor.SchemeColor = iColor
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.Transparency = 0#
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
End With