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

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

Синтаксис

выражение. Сохранить какВебОбъект

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

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

Объект

Примечания

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

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

  1. В группе " Код " на вкладке "Разработчик " щелкните "Visual Basic".

  2. В меню Сервис выберите пункт Ссылки.

  3. В списке "Доступные ссылки" выберите 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 и обратная связь.

  • Last updated on