使用 Visual Basic 中的“另存为网页”对象模型:示例

若要在 Visual Basic 项目中使用另存为网页 API,请在项目中将引用设置为 Microsoft Visio 15.0 另存为 Web 类型库

注意

在 Visio 附带的 Visual Basic 编辑器中,可以通过选择“工具”菜单上的“引用”来查找可用引用的列表。 在 Visual Basic 6.0 中,可以通过选择“项目”菜单上的“引用”来查找此列表。

另存为网页模型包含两个类: VisSaveAsWebVisWebPageSettings,它们分别实现 IVisSaveAsWebIVisWebPageSettings 接口。

  • VisSaveAsWeb 对象实现执行网页创建过程的方法。
  • VisWebPageSettings 对象包含网页项目的属性。

创建网页及其支持文件 (也称为网页项目) 时,通常会执行以下步骤:

  1. 使用 Visio Application 对象的 SaveAsWebObject 属性获取 VisSaveAsWeb 对象的实例。

  2. 使用 VisSaveAsWeb 对象的 WebPageSettings 属性获取对 VisWebPageSettings 对象的引用,该对象可用于获取或设置项目的网页设置。

  3. 设置 VisWebPageSettings 对象的属性。

    注意

    必须始终提供文件的目标路径。

  4. 调用 AttachToVisioDoc 方法以标识要另存为网页的文档。 如果未指定要保存的文档,则会保存活动绘图。

  5. 调用 CreatePages 方法以开始“另存为网页”操作。

以下过程演示如何打开新的网页项目、设置所选属性以及创建网页文件。

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 vsoSaveAsWeb.CreatePages 
End Sub

支持和反馈

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