Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige