VisSaveAsWeb.CreatePages, méthode

Lance la création d’une page web.

Syntaxe

expression. CreatePages

Expression Expression qui renvoie un objet VisSaveAsWeb .

Valeur renvoyée

Nothing

Remarques

Étant donné que l’objet VisSaveAsWeb utilise les paramètres de son objet VisWebPageSettings pour créer la page web, vous devez appeler la méthode CreatePages après avoir apporté les modifications nécessaires à l’objet VisWebPageSettings .

Pour spécifier le document à enregistrer en tant que page web, utilisez la méthode AttachToVisioDoc . Si aucun document n’est spécifié, Microsoft Visio enregistre le document actif par défaut.

Exemple

L’exemple suivant montre comment ouvrir un fichier existant et l’enregistrer en tant que page web à l’aide des paramètres par défaut de la fonctionnalité Enregistrer en tant que page web et des méthodes AttachToVisioDoc et CreatePages . Avant d’exécuter cet exemple, remplacez par path\filename un chemin d’accès et un nom de fichier valides pour un document Visio à passer à la méthode Open . En outre, remplacez par targetpath\filename un chemin d’accès cible valide et un nom de fichier pour les fichiers projet de la page 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.