Propriété InvisibleApp.SaveAsWebObject (Visio)

Article
04/07/2023

Retourne une référence à l’interface IDispatch d’un objet VisSaveAsWeb . En lecture seule.

Syntaxe

expression. SaveAsWebObject

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

Objet

Remarques

Une fois que vous disposez d’une référence à l’objet VisSaveAsWeb , vous pouvez utiliser les objets, méthodes et propriétés de l’API Enregistrer en tant que page web pour publier des documents Microsoft Visio sur le web. Pour plus d’informations sur cet API, recherchez « Save as Web Page API » (en anglais) sur le site Web MSDN.

Pour pouvoir utiliser l’API Enregistrer en tant que page web, vous devez obtenir une référence à la bibliothèque de type Web De Microsoft Visio 14.0 dans votre projet Microsoft Visual Basic ou Microsoft Visual Basic pour Applications (VBA). Pour obtenir cette référence dans VBA, respectez la procédure suivante :

Dans le groupe Code de l’onglet Développeur , cliquez sur Visual Basic.
Dans le menu Outils, cliquez sur Références.
Dans la liste Références disponibles, sélectionnez Microsoft Visio 14.0 Save As Web Type Library et cliquez sur OK.

Exemple

Cette macro VBA indique comment utiliser la propriété SaveAsWebObject pour récupérer un objet VisSaveAsWeb. Il montre également comment obtenir un objet VisWebPageSettings , configurer les paramètres de page web et créer une page web pour afficher le document Visio actif. La macro obtient un objet Application Visio et le transmet à la procédure SaveAsWeb , qui obtient l’objet VisSaveAsWeb , configure les paramètres et crée la page web.

Avant d’exécuter cette macro, obtenez une référence à la bibliothèque de types Web De Microsoft Visio 14.0 , comme décrit ci-dessus, puis remplacez path\filename dans le code par le chemin d’accès complet et le nom du fichier .htm que vous souhaitez créer sur votre ordinateur pour afficher la page web.

 
Public Sub SaveAsWebObject_Example 
 
 Dim vsoApplication as Visio.Application 
 Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
 Dim objSaveAsWeb As IVisSaveAsWeb 
 Dim objWebPageSettings As IVisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new Web page project 
 Set objSaveAsWeb = Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object 
 Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
 ' Configure Web-page settings 
 objWebPageSettings.StartPage = 1 
 objWebPageSettings.EndPage = 2 
 objWebPageSettings.LongFileNames = True 
 objWebPageSettings.TargetPath = "path\filename " 
 
 ' Now create the pages; because we did not identify 
 ' a particular document, the active document is saved 
 objSaveAsWeb.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.

Partager via