Propiedad InvisibleApp.SaveAsWebObject (Visio)

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

Sintaxis

expresión. SaveAsWebObject

Expresión Variable que representa un objeto InvisibleApp .

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.

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 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

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.