Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

farbe von Objekt auslesen

Forumthread: farbe von Objekt auslesen

farbe von Objekt auslesen
Objekt
Hallo zusammen,
ich würde gerne die Farbe von Objekten, mit denen Sie gefärbt sind auslesen.
Mit dem Makrorekorder kann ich mir ja leicht aufzeichnen, wie ich das Objekt färbe, aber rückwärts scheint das nicht zu funktionieren.
Im Prinzip bräuchte ich etwa sowas:
msgbox Worksheets(1).Shapes(b).Fill.ForeColor.SchemeColor
Das gibt einen Fehler...
Könnt ihr mir weiterhelfen.
Vielen Dank
Gruß Jonatan
Anzeige

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

Betreff
Benutzer
Anzeige
RGB-Werte : Ohne ".SchemeColor"
15.07.2009 17:30:03
NoNet
Hallo Jonatan,
Das kannst Du so erreichen :
Msgbox Activesheet.Shapes(1).Fill.ForeColor
Diese Anweisung liefert Dir allerdings nur den RGB-Wert der Farbe (und nicht den Paletteneintrag !), den Du dann noch auf die einzelnen Farbanteile herunterrechnen musst :
VBA-Code:
Function rgbFarbe(dblRGB)
    '15.07.2009, NoNet
    'Aufruf z.B. durch :
    'MsgBox rgbFarbe(12345)(0) => ROT-Wert
    'MsgBox rgbFarbe(12345)(1) => GRÜN-Wert
    'MsgBox rgbFarbe(12345)(2) => BLAU-Wert
    Dim R, G, B
    R = dblRGB \ 256 ^ 2
    G = (dblRGB - (256 ^ 2) * R) \ 256
    B = ((dblRGB - (256 ^ 2) * R) - 256 * G)
    rgbFarbe = Array(R, G, B)
End Function
Gruß, NoNet
AW: RGB-Werte : Ohne ".SchemeColor"
Jonatan

Hi,
wunderbar!
Vielen Dank
Gruß Jonatan
Anzeige
AW: RGB-Werte : Ohne ".SchemeColor"
16.07.2009 08:12:05
Jonatan
Hi,
wunderbar!
Vielen Dank
Gruß Jonatan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige