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"