Свойство VisWebPageSettings.StoreInFolder

Статья
04/07/2023

Определяет, помещаются ли вспомогательные файлы для создаваемой веб-страницы во вложенную папку с тем же именем, что и корневой HTML-файл. Для чтения и записи.

Синтаксис

expression. 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 и обратная связь.

Поделиться через