通过

Application.SaveAsWebObject 属性 (Visio)

  • 项目

返回对 VisSaveAsWeb 对象的 IDispatch 接口的引用。 此为只读属性。

语法

表达式。SaveAsWebObject

expression：表示 Application 对象的变量。

返回值

Object

备注

对 VisSaveAsWeb 对象的引用后，可以使用另存为网页 API 的对象、方法和属性将 Microsoft Visio 文档发布到 Web。 有关“另存为网页”API 的详细信息，请在 MSDN 上搜索“另存为网页 API”。

若要能够使用另存为网页 API，必须在 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 项目中获取对 Microsoft Visio 14.0 另存为 Web 类型库的引用。 要在 VBA 中获取此引用，请使用下面的过程：

  1. 在“开发工具”选项卡上的“代码”组中，单击“Visual Basic”。

  2. 在“工具”菜单上，单击“引用”。

  3. 在“可用的引用”列表中，选择“Microsoft Visio 14.0 Save As Web 类型库”并单击“确定”。

如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 引用，则此属性映射到以下类型：

  • Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

示例

以下 VBA 宏显示如何使用 SaveAsWebObject 属性来获取 VisSaveAsWeb 对象。 它还演示了如何获取 VisWebPageSettings 对象、配置网页设置以及创建网页以显示活动的 Visio 文档。 宏获取 Visio Application 对象并将其传递给 SaveAsWeb 过程，该过程获取 VisSaveAsWeb 对象、配置设置并创建网页。

运行此宏之前，按上述方式获取对 Microsoft Visio 14.0 另存为 Web 类型库 的引用，并在代码中将 替换为 path\filename 要在计算机上创建的用于显示网页的 .htm 文件的完整路径和名称。

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.CreatePages 
 
End Sub

支持和反馈

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