Método VisSaveAsWeb.CreatePages

Inicia la creación de páginas web.

Sintaxis

más sencilla.Crear páginas

expresión Una expresión que devuelve un objeto VisSaveAsWeb .

Valor devuelto

Nothing

Comentarios

Dado que el objeto VisSaveAsWeb usa la configuración de su objeto VisWebPageSettings para crear la página web, debe llamar al método CreatePages después de realizar los cambios necesarios en el objeto VisWebPageSettings .

Para especificar qué documento guardar como página web, use el método AttachToVisioDoc . Si no se especifica ningún documento, Microsoft Visio guarda el documento activo de forma predeterminada.

Ejemplo

En el ejemplo siguiente se muestra cómo abrir un archivo existente y guardarlo como una 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 path\filename por una ruta de acceso válida y un nombre de archivo para que un documento de Visio lo pase al método Open . Además, reemplácelo targetpath\filename por 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 CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    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.