Свойство Application.SaveAsWebObject (Visio)

Статья
04/07/2023

Возвращает ссылку на интерфейс IDispatch объекта VisSaveAsWeb . Только для чтения.

Синтаксис

expression. SaveAsWebObject

выражение: переменная, представляющая объект Application.

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

Объект

Замечания

Получив ссылку на объект VisSaveAsWeb , вы можете использовать объекты, методы и свойства API сохранить как веб-страницу для публикации документов Microsoft Visio в Интернете. Дополнительные сведения об API сохранения как веб-страницы найдите "Сохранить как API веб-страницы" на сайте MSDN.

Чтобы иметь возможность работать с API сохранения как веб-страницы, необходимо получить ссылку на библиотеку Microsoft Visio 14.0 Сохранить как веб-тип в проекте Microsoft Visual Basic или Microsoft Visual Basic для приложений (VBA). Чтобы получить эту ссылку в VBA, выполните следующую процедуру:

В группе Код на вкладке Разработчик щелкните Visual Basic.
В меню Сервис выберите пункт Ссылки.
В списке Доступные ссылки выберите Microsoft Visio 14.0 Сохранить как библиотеку веб-типов и нажмите кнопку ОК.

Если решение Visual Studio содержит ссылку microsoft.Office.Interop.Visio , это свойство сопоставляется со следующими типами:

Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

Пример

В этом макросе VBA показано, как использовать свойство SaveAsWebObject для получения объекта VisSaveAsWeb . Здесь также показано, как получить объект VisWebPageSettings , настроить параметры веб-страницы и создать веб-страницу для отображения активного документа Visio. Макрос получает объект Приложения Visio и передает его в процедуру SaveAsWeb , которая получает объект VisSaveAsWeb , настраивает параметры и создает веб-страницу.

Перед выполнением этого макроса получите ссылку на библиотеку Microsoft Visio 14.0 "Сохранить как веб-тип" , как описано выше, и замените path\filename в коде полным путем и именем файла .htm, который вы хотите создать на компьютере для отображения веб-страницы.

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.CreatePages 
 
End Sub

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

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

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