Application.ColorSchemes Property (Publisher)
Returns a ColorSchemes collection that represents the color schemes available.
Syntax
expression .ColorSchemes
expression A variable that represents a Application object.
Return Value
ColorSchemes
Example
The following example loops through the ColorSchemes collection and displays the name of each color scheme and the RGB value of the color for followed hyperlinks in each scheme.
Dim cscLoop As ColorScheme
Dim cscAll As ColorSchemes
Set cscAll = Application.ColorSchemes
For Each cscLoop In cscAll
With cscLoop
Debug.Print "Color scheme: " & .Name _
& " / Followed hyperlink color: " _
& .Colors(ColorIndex:=pbSchemeColorFollowedHyperlink).RGB
End With
Next cscLoop