Compartir a través de

Propiedad Application.SaveAsWebObject (Visio)

  • Artículo

Devuelve una referencia a la interfaz IDispatch de un objeto VisSaveAsWeb . Solo lectura.

Sintaxis

expresión. SaveAsWebObject

expresión Variable que representa un objeto Application.

Valor devuelto

Objeto

Comentarios

Una vez que tenga una referencia al objeto VisSaveAsWeb , puede usar los objetos, métodos y propiedades de la API Guardar como página web para publicar documentos de Microsoft Visio en la Web. Para obtener más información acerca de la API Guardar como página web, busque el tema sobre la API Guardar como página web en MSDN.

Para poder trabajar con la API Guardar como página web, debe obtener una referencia a la biblioteca guardar como tipo web de Microsoft Visio 14.0 en su proyecto de Microsoft Visual Basic o Microsoft Visual Basic para Aplicaciones (VBA). Para obtener esta referencia en VBA, siga este procedimiento:

  1. En el grupo Código de la pestaña Desarrollador , haga clic en Visual Basic.

  2. En el menú Herramientas, haga clic en Referencias.

  3. En la lista Referencias disponibles, seleccione Biblioteca de tipos Guardar como web de Microsoft Visio 14.0 y haga clic en Aceptar.

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio , esta propiedad se asigna a los tipos siguientes:

  • Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

Ejemplo:

Esta macro de VBA muestra cómo utilizar la propiedad SaveAsWebObject para obtener un objeto VisSaveAsWeb. También se muestra cómo obtener un objeto VisWebPageSettings , configurar la configuración de la página web y crear una página web para mostrar el documento de Visio activo. La macro obtiene un objeto Application de Visio y lo pasa al procedimiento SaveAsWeb , que obtiene el objeto VisSaveAsWeb , configura los valores y crea la página web.

Antes de ejecutar esta macro, obtenga una referencia a la biblioteca guardar como tipo web de Microsoft Visio 14.0 como se describió anteriormente y reemplace path\filename en el código por la ruta de acceso completa a y el nombre del archivo .htm que desea crear en el equipo para mostrar la página web.

 
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

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.