Themes Property

Returns a collection of themes available for the specified object.

Remarks

The Themes property as applied to the Application object returns the collection of themes available to be applied. When the Themes property is applied to the WebEx object, it returns the collection of themes that have been applied to the web. This is the same as the list that appears in the web’s _theme directory. If a theme is applied to a WebEx object, there will be one theme in the collection. However, if a page in a web has its own theme, separate from the theme that was applied to the web, then the Themes collection for the WebEx object will have two themes in it — the theme that was originally applied to the web, and the theme that was applied specifically to the page.

Example

This example searches for a specific theme among the themes that are available locally on the client, as well as the themes applied to the ActiveWeb object.

Private Sub SearchAllThemes()
	Dim myTheme As Theme
	Dim myThemeToFind As String
	Dim myIsFound As Boolean

	myThemeToFind = “blends”
	myIsFound = False

	For Each myTheme In Application.Themes
    		If myTheme.Label = myThemeToFind Then
        		myIsFound = True
        		Exit For
    		End If
	Next

	For Each myTheme In ActiveWeb.Themes
    		If myTheme.Label = myThemeToFind Then
        		myIsFound = True
        		Exit For
    		End If
	Next

End Sub