Themes 属性

返回指定对象可用的主题集合。

注释

应用于 Application 对象时，Themes 属性返回可应用的主题集合。当 Themes 属性应用于 WebEx 对象时，则返回已经被应用于站点的主题集合。这与当前站点 _theme 目录下的列表是一样的。如果主题应用于 WebEx 对象中，则集合中会有一个主题。然而，如果站点中的某网页有自己的主题，且该主题与应用于站点的主题不同，则 WebEx 对象的 Themes 集合中将会有两个主题：一个是原先应用于站点的主题，另一个是特别应用于该网页的主题。

示例

本示例在客户端本地可用的主题以及应用于 ActiveWeb 对象的主题中搜索特定主题。

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