Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

RGB-Farbwerte eines Shapes auslesen

RGB-Farbwerte eines Shapes auslesen
26.01.2006 15:46:14
Peter
Hallo zusammen,
ich hab' eine Frage zu Shapes:
Auf eine Tabelle hab' ich 10 Stück davon plaziert.
Es sind ganz einfache Rechtecke. Denen weise ich per VBA-Code eine Farbe zu (RGB).
Meine Frage nun: Wie kann ich denn diesen Farbwert wieder auslesen?
Ich wollte die drei Werte (R, G und B) in drei Variablen speichern ... schaffe es aber nicht.
Könnt Ihr mir helfen ?
Vielen Dank und viele Grüße aus Frankfurt
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: RGB-Farbwerte eines Shapes auslesen
26.01.2006 16:04:54
Josef
Hallo Peter!
Z.B. so!
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub test()
Dim l As Long
l = ActiveSheet.Shapes(1).Fill.ForeColor
MsgBox RGBRed(l) & ", " & RGBGreen(l) & ", " & RGBBlue(l)
End Sub


Public Function RGBRed(RGBCol As Long) As Long
'Return the Red component from an RGB Color
RGBRed = RGBCol And &HFF
End Function



Public Function RGBGreen(RGBCol As Long) As Long
'Return the Green component from an RGB Color
RGBGreen = ((RGBCol And &H100FF00) \ &H100)
End Function



Public Function RGBBlue(RGBCol As Long) As Long
'Return the Blue component from an RGB Color
RGBBlue = (RGBCol And &HFF0000) \ &H10000
End Function


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: RGB-Farbwerte eines Shapes auslesen
26.01.2006 16:09:39
Peter
Hallo Sepp,
genau so etwas hatte ich gesucht ...
Vielen Dank und viele Grüße
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige