ThemeColor

Forumthread: ThemeColor

ThemeColor

Matthias

Hallo,
gibt es eine Möglichkeit für alle ThemeColors die RGB-Werte auszugeben ?
Vielen Dank.
Matthias

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: ThemeColor

Nepumuk

AW: ThemeColor

25.06.2010 01:56:28

Nepumuk

Hallo Matthias,
klar:

Public Sub test()
    Dim lngRed As Long, lngGreen As Long, lngBlue As Long, lngColor As Long
    Dim lngIndex As Long
    For lngIndex = 1 To 12
        Cells(1, 1).Interior.PatternThemeColor = lngIndex
        lngColor = Cells(1, 1).Interior.PatternColor
        lngRed = lngColor And vbRed
        lngGreen = (lngColor And vbGreen) \ &H100
        lngBlue = (lngColor And vbBlue) \ &H10000
        Debug.Print lngColor, lngRed & ", " & lngGreen & ", " & lngBlue
    Next
End Sub

Gruß
Nepumuk

Forumthread: ThemeColor

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread