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

Использование объектной модели "Сохранить как веб-страницу" из Visual Basic: пример

  • Статья

Чтобы использовать API сохранения как веб-страницы в проекте Visual Basic, задайте в проекте ссылку на Библиотеку веб-типов Microsoft Visio 15.0.

Примечание.

В редакторе Visual Basic, включенном в Состав Visio, можно найти список доступных ссылок, выбрав ссылки в меню Сервис . В Visual Basic 6.0 этот список можно найти, выбрав Ссылки в меню Проект .

Модель Сохранить как веб-страницу содержит два класса: VisSaveAsWeb и VisWebPageSettings, которые реализуют интерфейсы IVisSaveAsWeb и IVisWebPageSettings соответственно.

  • Объект VisSaveAsWeb реализует методы, которые выполняют процесс создания веб-страницы.
  • Объект VisWebPageSettings содержит свойства проекта веб-страницы.

При создании веб-страницы и ее вспомогательных файлов (также называемых проектом веб-страницы) обычно выполняются следующие действия:

  1. Используйте свойство SaveAsWebObject объекта Visio Application , чтобы получить экземпляр объекта VisSaveAsWeb .

  2. Используйте свойство WebPageSettings объекта VisSaveAsWeb , чтобы получить ссылку на объект VisWebPageSettings , который можно использовать для получения или задания параметров веб-страницы для проекта.

  3. Задайте свойства объекта VisWebPageSettings .

    Примечание.

    Необходимо всегда указывать целевой путь к файлам.

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

  5. Вызовите метод CreatePages , чтобы начать операцию Сохранить как веб-страницу.

В следующей процедуре показано, как открыть новый проект веб-страницы, задать выбранные свойства и создать файлы веб-страницы.

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 vsoSaveAsWeb.CreatePages 
End Sub

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

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