从命令行运行“另存为网页”

项目
04/07/2023

每个 Visio 产品都会自动安装“另存为网页”功能。它作为名为 SaveAsWeb 的 Visio 加载项安装。

若要从命令行界面运行“另存为网页”功能，请调用 SaveAsWeb 加载项并使用所需的命令行选项。

可以选择以下任一技术。

创建在形状的事件节中使用 RUNADDONWARGS 函数的公式

可以在 ShapeSheet 窗口中执行此操作，而无需编写任何代码。例如，可以创建一个形状，并在形状的双击事件中插入对 RUNADDONWARGS 的调用。用户只需双击形状即可从绘图创建网页。还可以使用自动化通过 Visio 对象模型的 Cell 对象的 Formula 属性来设置公式。

有关 RUNADDONWARGS 函数、 Cell 对象或 Formula 属性的详细信息，请参阅 Visio 开发人员参考 (帮助>搜索>开发人员参考) 。

有关将 RUNADDONWARGS 函数与另存为网页配合使用的更多详细信息，请参阅本主题后面的使用 RUNADDONWARGS 函数。

使用 Visio 自动化对象模型在 Visio 中编写 Visual Basic 宏 (或在单独的组件) 编写代码以启动 SaveAsWeb 加载项

使用 Addon 对象的 Run 方法并传递命令行参数以指定网页的属性。

使用此方法可能意味着你编写的代码比使用另存为网页对象模型来指定参数要少，但使用 Run 方法需要熟悉命令行参数。

有关 Addon 对象或 Run 方法的详细信息，请参阅 Visio 开发人员参考 (帮助>搜索>开发人员参考) 。

有关使用 Run 方法调用另存为网页的更多详细信息，请参阅本主题后面的调用 SaveAsWeb 加载项的 Run 方法。

另存为网页命令行选项

命令行参数的格式如下：/option=值

例如，以下代码设置目标参数：/target=c:\temp\mypage.htm

下表列出了“另存为网页”命令行界面的命令行选项。 “方法/属性名称”列列出了对象模型中的相应方法或属性。有关特定选项的详细信息，请参阅此参考中的相应方法或属性主题。

选项	默认值	值类型	方法/属性名称
target	无。必须提供目标值，否则 Visio 将生成错误。	Text	TargetPath
pagetitle	与文档文件名相同	Text	PageTitle
支柱	TRUE	Boolean	PropControl
altformat	TRUE	Boolean	AltFormat
folder	TRUE	Boolean	StoreInFolder
theme	NULL	Text	ThemeName
startpage	-1 (所有页面)	数字	StartPage
endpage	-1 (所有页面)	数字	EndPage
openbrowser	TRUE	Boolean	OpenBrowser
screenres	1024x768	Text/Number1	DispScreenRes
priformat	Xaml	Text/Number1	PriFormat
secformat	PNG	Text/Number1	SecFormat
沉默	FALSE	Boolean	SilentMode
安静	FALSE	Boolean	QuietMode
样式表	\ your_Visio_path\your_language_ID\Default.css	Text	Stylesheet
导航栏	TRUE	Boolean	NavBar
search	TRUE	Boolean	搜索
panzoom	TRUE	Boolean	PanAndZoom

对于文本/数字值类型，用户可以为输出类型指定文本 (（例如 vml) ），或者指定数字 (，例如，1) 表示此输出类型的索引。每个输出类型都有其自己的唯一索引。

对于 screenres，文本和数字值由 VISWEB_DISP_RES 枚举定义。

使用 RUNADDONWARGS 函数

下面显示了使用 RUNADDONWARGS 函数调用 SaveAsWeb 加载项的一种方法。

=RUNADDONWARGS("SaveAsWeb","/target=c:\temp\mypage.htm /quiet /prop /startpage=1 /endpage=3 /altformat /priformat=vml /secformat=jpg /openbrowser")

本主题前面提到的方案描述了用户只需双击绘图中的某个形状即可为该绘图生成网页。若要演示这一点，可以将上一个公式放在绘图页上任意形状的“事件”部分的 EventDblClick 单元格中， (打开 ShapeSheet 窗口，选择绘图窗口中的形状，然后在“ 开发工具 ”选项卡上，选择“ 显示 ShapeSheet) ”。在 ShapeSheet 单元格中输入公式后，可以在绘图窗口中双击该形状以启动“另存为网页”功能。

有关 RUNADDONWARGS 函数、EventDblClick 单元格和“事件”部分的详细信息，请参阅 Visio 开发人员参考 (帮助>搜索>开发人员参考) 。

调用 SaveAsWeb 加载项的 Run 方法

另存为网页功能作为名为 SaveAsWeb 的 Visio 加载项安装。若要获取对此加载项的引用，请使用 Visio Application 对象的 Addons 集合。

以下示例演示如何通过将命令行参数传递给 Addon 对象的 Run 方法来运行 SaveAsWeb 加载项。

在此示例中，启动加载项的代码包含在 DocumentSaved 事件的事件处理程序中。 QuietMode 属性设置为 True，以便用户界面中不显示“另存为网页”对话框。

Private Sub Document_DocumentSaved(ByVal Document As IVDocument) 
    Application.Addons("SaveAsWeb").Run "/quiet=True /target=C:\temp\test.htm" 
End Sub

有关 Addons 集合、 Application 和 Addon 对象以及 DocumentSaved 事件的详细信息，请参阅 Visio 自动化参考 (帮助>搜索>开发人员参考) 。

支持和反馈

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

通过