通过

VisSaveAsWeb.CreatePages 方法

  • 项目

启动网页创建。

语法

表达式。CreatePages

表达 返回 VisSaveAsWeb 对象的表达式。

返回值

Nothing

备注

由于 VisSaveAsWeb 对象使用其 VisWebPageSettings 对象中的设置来创建网页，因此应在对 VisWebPageSettings 对象进行任何所需的更改后调用 CreatePages 方法。

若要指定要另存为网页的文档，请使用 AttachToVisioDoc 方法。 如果未指定任何文档，则默认情况下，Microsoft Visio 会保存活动文档。

示例

以下示例演示如何使用“另存为网页”功能的默认设置以及 AttachToVisioDoc 和 CreatePages 方法打开现有文件并将其另存为网页。 在运行此示例之前，请将 替换为 path\filename Visio 文档要传递给 Open 方法的有效路径和文件名。 此外，请将 替换为 targetpath\filename 网页项目文件的有效目标路径和文件名。

Public Sub CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。