Compartir a través de

Método VisSaveAsWeb.AttachToVisioDoc

  • Artículo

Indica qué documento se va a guardar como página web.

Sintaxis

expresión. AttachToVisioDoc (docObj)

Expresión Expresión que devuelve un objeto VisSaveAsWeb .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
docObj Obligatorio Documento Objeto automation que admite la interfaz IVDocument .

Valor devuelto

Nothing

Comentarios

Los programas de Microsoft Visual Basic pueden pasar un objeto Document de Visio a este método porque los objetos creados a partir de la clase Document de Visio admiten la interfaz IVDocument .

El método AttachToVisioDoc consulta la interfaz IUnknown para conocer la presencia de la interfaz IVDocument .

Ejemplo:

En el ejemplo siguiente se muestra cómo abrir un archivo existente y guardarlo como página web mediante la configuración predeterminada de la característica Guardar como página web y los métodos AttachToVisioDoc y CreatePages . Antes de ejecutar este ejemplo, reemplace por path\filename una ruta de acceso y un nombre de archivo válidos para que un documento de Visio pase al método Open . Además, reemplace por targetpath\filename una ruta de acceso de destino válida y un nombre de archivo para los archivos de proyecto de la página web.


Public Sub AttachToVisioDoc_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("<variable>path\filename</variable>") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "<variable>targetpath\filename</variable>"

    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
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.