Propriété Application.SaveAsWebObject (Visio)

Article
04/07/2023

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

Syntaxe

expression. SaveAsWebObject

expressionUne variable qui représente un objetApplication.

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.

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette propriété correspond aux types suivants :

Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

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