全部显示

ApplyTheme 方法

将包含在 ThemeName 参数中的值应用于 ThemeProperties 参数中命名的属性。例如，可以将主题应用于基于 Microsoft FrontPage 的站点中的 WebFile、PageWindowEx 或 WebEx 对象。

expression  用于返回“应用于”列表中的对象的表达式。

ThemeName  必选，String 类型。包含有要应用于文件的主题名称的字符串。ThemeName 可以是以下常数之一：

说明

以下代码将“彩条”主题应用于具有动态图形的文件。

Dim strTheme As String

strTheme = "sumipntg"
Call WebFile.ApplyTheme(strTheme, fpThemeActiveGraphics)

若要在应用主题时更改多个主题属性，请使用加号 (+)，如以下示例所示。

strTheme = "sumipntg"
WebFile.ApplyTheme(strTheme, _
fpThemeVividColors + fpThemeActiveGraphics)

该方法和将主题应用于 PageWindowEx 或 WebEx 对象所使用的方法基本相同。

示例

本示例包括一个函数 (ApplyThemeToFilesInFolder) 以及一个过程，您可以修改该过程以应用任何可用的主题，本示例将“艺术型”主题应用于指定文件夹中的所有文件。

注意 要运行本示例，请将代码复制到 Visual Basic 编辑器中的一个模块内，然后运行 ChangeToArtsy 过程。

Function ApplyThemeToFilesInFolder(myThemeName As String, _
        myFolderObject As WebFolder) As Boolean
    Dim myFile As WebFile
    Dim myTheme As Theme

    On Error GoTo ERR

    For Each myFile In myFolderObject.Files
        Call myFile.ApplyTheme(myThemeName, fpThemePropertiesAll)
    Next myFile

    ApplyThemeToFilesInFolder = True
    Exit Function

ERR:
    MsgBox "An error occured: " & ERR.Description, vbCritical, "Error!"
    ApplyThemeToFilesInFolder = False
Exit Function

End Function

Private Sub ChangeToArtsy()
    ApplyThemeToFilesInFolder "artsy", ActiveWeb.RootFolder
End Sub