将包含在 ThemeName 参数中的值应用于 ThemeProperties 参数中命名的属性。例如,可以将主题应用于基于 Microsoft FrontPage 的站点中的 WebFile、PageWindowEx 或 WebEx 对象。
expression.ApplyTheme(ThemeName, ThemeProperties)
expression 用于返回“应用于”列表中的对象的表达式。
ThemeName 必选,String 类型。包含有要应用于文件的主题名称的字符串。ThemeName 可以是以下常数之一:
artsy | boldstri | indust | sumipntg |
blank | capsules | ricepapr | |
blends | citrus | rmnsque | |
blueprnt | expeditn | strtedge |
FpThemeProperties 可以是下列 FpThemeProperties 常数之一: |
fpThemeActiveGraphics |
fpThemeBackgroundImage |
fpThemeCSS |
fpThemeDefaultSettings |
fpThemeName |
fpThemeNoBackgroundImage |
fpThemeNoCSS |
fpThemeNormalColors 默认值 |
fpThemeNormalGraphics |
fpThemePropertiesAll |
fpThemePropertiesNone |
fpThemeVividColors |
以下代码将“彩条”主题应用于具有动态图形的文件。
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