Utilisation du modèle objet Enregistrer en tant que page web à partir de Visual Basic : exemple

Pour utiliser l’API Enregistrer en tant que page web dans votre projet Visual Basic, définissez une référence dans votre projet à Microsoft Visio 15.0 Enregistrer en tant que bibliothèque de types web.

Remarque

Dans l’éditeur Visual Basic fourni avec Visio, vous trouverez la liste des références disponibles en choisissant Références dans le menu Outils . Dans Visual Basic 6.0, vous pouvez trouver cette liste en choisissant Références dans le menu Projet .

Le modèle Enregistrer en tant que page web contient deux classes : VisSaveAsWeb et VisWebPageSettings, qui implémentent les interfaces IVisSaveAsWeb et IVisWebPageSettings , respectivement.

• Un objet VisSaveAsWeb implémente les méthodes qui effectuent le processus de création de page web.
• Un objet VisWebPageSettings contient les propriétés de votre projet de page web.

Lorsque vous créez une page web et ses fichiers de prise en charge (également appelés projet de page web), vous procédez généralement comme suit :

1. Utilisez la propriété SaveAsWebObject de l’objet Application Visio pour obtenir une instance d’un objet VisSaveAsWeb .

2. Utilisez la propriété WebPageSettings de l’objet VisSaveAsWeb pour obtenir une référence à un objet VisWebPageSettings , que vous pouvez utiliser pour obtenir ou définir les paramètres de page web de votre projet.

3. Définissez les propriétés de l’objet VisWebPageSettings .

   Remarque

   Vous devez toujours fournir un chemin cible pour vos fichiers.

4. Appelez la méthode AttachToVisioDoc pour identifier le document à enregistrer en tant que page web. Si vous ne spécifiez pas le document à enregistrer, le dessin actif est enregistré.

5. Appelez la méthode CreatePages pour commencer l’opération Enregistrer en tant que page web.

La procédure suivante montre comment ouvrir un nouveau projet de page web, définir les propriétés sélectionnées et créer les fichiers de page web.

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 vsoSaveAsWeb.CreatePages 
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.