Autoform anhand Zellwert mit RGB - Wert färben
16.10.2006 16:43:57
Jürgen
ich versuche per Makro vergeblich eine Autoform (ein Rechteck) so umzufärben, dass der RGB-Wert für dieses Rechteck übernommen wird.
In C2 steht der R-Wert z.B. 255
In D2 steht der G-Wert z.B. 255
in E2 steht der B-Wert z.B. 0
Eigentlich sollte die Form dann Gelb gefüllt sein.
Das Funktioniert aber mit folgendem Code nicht :-(
------------
Dim R, G, B As Integer
R = Sheets("Tabelle1").Range("c2").Value
G = Sheets("Tabelle1").Range("d2").Value
B = Sheets("Tabelle1").Range("e2").Value
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Line.BackColor.RGB = RGB("&R&", "&G&", "&B&")
------------
Fehlermeldung: Typen unverträglich
Dankbar für jede Hilfe
Jürgen