Compartir a través de

Uso del modelo de objetos Guardar como página web desde Visual Basic: un ejemplo

  • Artículo

Para usar la API Guardar como página web en el proyecto de Visual Basic, establezca una referencia en el proyecto en Microsoft Visio 15.0 Guardar como biblioteca de tipos web.

Nota:

En el Editor de Visual Basic incluido con Visio, puede encontrar la lista de referencias disponibles eligiendo Referencias en el menú Herramientas . En Visual Basic 6.0, puede encontrar esta lista eligiendo Referencias en el menú Proyecto .

El modelo Guardar como página web contiene dos clases: VisSaveAsWeb y VisWebPageSettings, que implementan las interfaces IVisSaveAsWeb e IVisWebPageSettings , respectivamente.

  • Un objeto VisSaveAsWeb implementa los métodos que realizan el proceso de creación de páginas web.
  • Un objeto VisWebPageSettings contiene las propiedades del proyecto de página web.

Al crear una página web y sus archivos auxiliares (también denominado proyecto de página web), normalmente se siguen estos pasos:

  1. Use la propiedad SaveAsWebObject del objeto Application de Visio para obtener una instancia de un objeto VisSaveAsWeb .

  2. Utilice la propiedad WebPageSettings del objeto VisSaveAsWeb para obtener una referencia a un objeto VisWebPageSettings , que puede usar para obtener o establecer la configuración de la página web para el proyecto.

  3. Establezca las propiedades del objeto VisWebPageSettings .

    Nota:

    Siempre debe proporcionar una ruta de acceso de destino para los archivos.

  4. Llame al método AttachToVisioDoc para identificar el documento que se va a guardar como página web. Si no especifica qué documento guardar, se guarda el dibujo activo.

  5. Llame al método CreatePages para comenzar la operación Guardar como página web.

En el procedimiento siguiente se muestra cómo abrir un nuevo proyecto de página web, establecer las propiedades seleccionadas y crear los archivos de página web.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.