Метод VisSaveAsWeb.CreatePages

Статья
04/07/2023

Инициирует создание веб-страницы.

Синтаксис

expression. CreatePages

Выражение Выражение, возвращающее объект VisSaveAsWeb .

Возвращаемое значение

Nothing

Замечания

Так как объект VisSaveAsWeb использует параметры в своем объекте VisWebPageSettings для создания веб-страницы, следует вызвать метод CreatePages после внесения необходимых изменений в объект VisWebPageSettings .

Чтобы указать документ, который следует сохранить в качестве веб-страницы, используйте метод AttachToVisioDoc . Если документ не указан, Microsoft Visio сохраняет активный документ по умолчанию.

Пример

В следующем примере показано, как открыть существующий файл и сохранить его как веб-страницу с помощью параметров по умолчанию функции "Сохранить как веб-страницу" и методов AttachToVisioDoc и CreatePages . Перед выполнением этого примера замените path\filename допустимым путем и именем файла для документа Visio, передаваемого в метод Open . Кроме того, замените targetpath\filename допустимым целевым путем и именем файла проекта веб-страницы.

Public Sub CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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