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

  • Статья

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

Синтаксис

expression. SaveAsWebObject

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

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

Объект

Замечания

Получив ссылку на объект 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 Сохранить как библиотеку веб-типов и нажмите кнопку ОК.

Пример

В этом макросе 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 Web page 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 и обратная связь.