VisWebPageSettings.QuietMode, propriété

Détermine si les boîtes de dialogue sont affichées dans l’interface utilisateur de Visio lorsque vous enregistrez un dessin en tant que page web. Lecture-écriture.

Syntaxe

expression. Quietmode

Expression Expression qui renvoie un objet VisWebPageSettings .

Valeur renvoyée

Long

Remarques

Définissez QuietMode sur une valeur différente de zéro (True) pour empêcher les boîtes de dialogue modales d’apparaître dans l’interface utilisateur lorsqu’un dessin est enregistré en tant que page web; définissez-la sur zéro (False) pour afficher les boîtes de dialogue avec les paramètres par défaut. La valeur par défaut est False.

La définition de la propriété QuietMode sur True empêche les boîtes de dialogue modales d’apparaître dans l’interface utilisateur de Microsoft Visio. Toutefois, la barre de progression Enregistrer en tant que page web s’affiche pendant la création de la page.

Pour empêcher l’interface utilisateur d’apparaître entièrement, utilisez la propriété SilentMode .

Si les propriétés QuietMode et SilentMode sont toutes deux définies sur True, la propriété SilentMode est prioritaire et aucune interface utilisateur n’est affichée.

Exemple

La macro suivante montre comment définir la propriété QuietMode sur True avant d’enregistrer le dessin en tant que page web. La définition de cette valeur sur True empêche les boîtes de dialogue modales d’apparaître dans l’interface utilisateur. Seule la barre de progression s’affiche. Étant donné que la propriété OpenBrowser a la valeur True, le dessin s’ouvre dans le navigateur.

Avant d’exécuter cette macro, remplacez par path\filename.htm un chemin d’accès cible valide sur votre ordinateur et le nom de fichier que vous souhaitez affecter à votre page web.

Public Sub QuietMode_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .QuietMode = True 
 .OpenBrowser = True 
 .TargetPath = "path\filename.htm" 
 End With 
 
 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.