workbook farben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: workbook farben von: Frank Sohn
Geschrieben am: 13.04.2005 14:23:10

Hallo,

Das geht ActiveWorkbook.Colors(i)=RGB(....)!

geht auch RGB=ActiveWorkBook.Colors(i), also die Umformung die Farbindex
in RGB?



Gruss

Frank

Bild


Betrifft: AW: workbook farben von: K.Rola
Geschrieben am: 13.04.2005 14:48:06

Hallo,
so gehts vom Prinzip her:
Sub RGB_Farbe()
Dim Farbe As Long, R As Integer, G As Integer, B As Integer
Farbe = ActiveWorkbook.Colors(4)
R = Farbe And 255
G = (Farbe \ 256) And 255
B = Farbe \ 65536
MsgBox "Rot: " & R & Chr(10) & "Grün: " & G & Chr(10) & "Blau: " & B
End Sub
Gruß K.Rola



Bild


Betrifft: AW: workbook farben von: Frank Sohn
Geschrieben am: 13.04.2005 15:22:38

Hallo,

ja genau, danke! Tja stand wohl auf der Leitung!


Gruss
Frank


 Bild

Beiträge aus den Excel-Beispielen zum Thema "workbook farben"