VisWebPageSettings.QuietMode-Eigenschaft

Artikel
10/16/2024

Bestimmt, ob Dialogfelder auf der Visio-Benutzeroberfläche angezeigt werden, wenn Sie eine Zeichnung als Webseite speichern. Lese-/Schreibzugriff.

Syntax

Ausdruck. QuietMode

Ausdruck Ein Ausdruck, der ein VisWebPageSettings-Objekt zurückgibt.

Rückgabewert

Long

Hinweise

Legen Sie QuietMode auf einen Wert ungleich 0 (True) fest, um zu verhindern, dass modale Dialogfelder auf der Benutzeroberfläche angezeigt werden, wenn eine Zeichnung als Webseite gespeichert wird. Legen Sie ihn auf 0 (False) fest, um Dialogfelder mit Standardeinstellungen anzuzeigen. Der Standardwert ist False.

Das Festlegen der QuietMode-Eigenschaft auf True verhindert, dass modale Dialogfelder auf der Microsoft Visio-Benutzeroberfläche angezeigt werden. Die Statusanzeige " Als Webseite speichern " wird jedoch angezeigt, während die Seite erstellt wird.

Um zu verhindern, dass die Benutzeroberfläche vollständig angezeigt wird, verwenden Sie die SilentMode-Eigenschaft .

Wenn sowohl die Eigenschaften QuietMode als auch SilentMode auf True festgelegt sind, hat die SilentMode-Eigenschaft Vorrang, und es wird keine Benutzeroberfläche angezeigt.

Beispiel

Das folgende Makro zeigt, wie die QuietMode-Eigenschaft auf True festgelegt wird, bevor die Zeichnung als Webseite gespeichert wird. Wenn Sie diesen Wert auf True festlegen, wird verhindert, dass modale Dialogfelder auf der Benutzeroberfläche angezeigt werden. Nur die Statusanzeige wird angezeigt. Da die OpenBrowser-Eigenschaft auf True festgelegt ist, wird die Zeichnung im Browser geöffnet.

Ersetzen Sie vor dem Ausführen dieses Makros path\filename.htm durch einen gültigen Zielpfad auf Ihrem Computer und den Dateinamen, den Sie Ihrer Webseite zuweisen möchten.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über