通过

VisSaveAsWeb.AttachToVisioDoc 方法

  • 项目

指示要另存为网页的文档。

语法

表达式。AttachToVisioDoc (docObj)

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

参数

名称 必需/可选 数据类型 说明
docObj 必需 "文档" 支持 IVDocument 接口的自动化对象。

返回值

Nothing

备注

Microsoft Visual Basic 程序可以将 Visio Document 对象传递给此方法，因为从 Visio Document 类创建的对象支持 IVDocument 接口。

AttachToVisioDoc 方法查询 IUnknown 接口是否存在 IVDocument 接口。

示例

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


Public Sub AttachToVisioDoc_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("<variable>path\filename</variable>") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "<variable>targetpath\filename</variable>"

    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

支持和反馈

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