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.