collection that represents the color schemes available.
expression.ColorSchemes
expression Required. An expression that returns one of the objects in the Applies To list.
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