Partager via


VisSaveAsWeb.AttachToVisioDoc, méthode

Indique le document à enregistrer en tant que page web.

Syntaxe

expression. AttachToVisioDoc (docObj)

Expression Expression qui renvoie un objet VisSaveAsWeb .

Parameters

Nom Requis/Facultatif Type de données Description
docObj Requis Document Objet Automation qui prend en charge l’interface IVDocument .

Valeur renvoyée

Nothing

Remarques

Les programmes Microsoft Visual Basic peuvent passer un objet Document Visio à cette méthode, car les objets créés à partir de la classe Visio Document prennent en charge l’interface IVDocument .

La méthode AttachToVisioDoc interroge l’interface IUnknown pour connaître la présence de l’interface IVDocument .

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 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

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.