通过

VisWebPageSettings.StoreInFolder 属性

  • 项目

确定是否将要创建的网页的支持文件放入与根 HTML 文件同名的子文件夹中。 读/写。

语法

表达式。StoreInFolder

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

返回值

Long

备注

将 StoreInFolder 设置为非零值， (True) 将支持网页文件放在与根 HTML 文件同名的子文件夹中;否则，请将其设置为零， (False) 。

如果将 StoreInFolder 属性设置为 True (非零) ，Microsoft Visio 会将支持文件置于与 .htm 文件同名的子文件夹中。 如果移动或删除.htm文件或子文件夹，也会移动或删除其相应的子文件夹或.htm文件。

如果将 StoreInFolder 属性设置为 False (0) ，Visio 会将所有支持文件与 .htm 文件放在同一文件夹中。

将 StoreInFolder 属性设置为 True 相当于选中“另存为网页”对话框的“常规”选项卡上的“组织支持文件”复选框， (BackstageButton 选项卡“>另存为>类型”列表>“网页” (*.htm;*.html) >发布) 。

示例

以下宏演示如何设置 StoreInFolder 属性，以便创建包含网页的所有支持文件且与.htm文件同名的子文件夹。

在运行此宏之前，请将 替换为 path\filename.htm 计算机上的有效目标路径和要分配给网页的文件名。

Public Sub StoreInFolder_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .StoreInFolder = True 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
 End Sub

支持和反馈

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