FrontPage VBA教程:ApplyTheme方法

将包含在 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  

ThemeProperties  可选,FpThemeProperties 类型。与主题关联的属性。
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对象所使用的方法基本相同。

VBA示例

本示例包括一个函数 (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

上页:FrontPage VBA教程:ApplyTemplate方法 下页:FrontPage VBA教程:CancelRequests方法

FrontPage VBA教程:ApplyTheme方法

FrontPage VBA教程:CancelRequests方法 FrontPage VBA教程:Checkin方法
FrontPage VBA教程:Checkout方法 FrontPage VBA教程:clear方法
FrontPage VBA教程:Close方法 FrontPage VBA教程:commit方法
FrontPage VBA教程:Copy方法 FrontPage VBA教程:createElement方法
FrontPage VBA教程:createStyleSheet方法 FrontPage VBA教程:createStyleState方法
FrontPage VBA教程:createUndoTransaction方法 FrontPage VBA教程:Delete方法
FrontPage VBA教程:Edit方法 FrontPage VBA教程:elementFromPoint方法
FrontPage VBA教程:execCommand方法 FrontPage VBA教程:getBotAttribute方法
FrontPage VBA教程:LocateFile方法 FrontPage VBA教程:LocateFolder方法
FrontPage VBA教程:LocatePage方法 FrontPage VBA教程:MakeAbs方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号