Método VisSaveAsWeb.CreatePages

Inicia la creación de páginas web.

Sintaxis

expresión. CreatePages

Expresión 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 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 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.