VisWebPageSettings.Stylesheet-Eigenschaft

Gibt ein cascading Stylesheet (CSS) an, das von Microsoft Visio bereitgestellt wird, oder eines, das Sie erstellt haben, das auf die Webseite angewendet wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. Stylesheet

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

Rückgabewert

String

Hinweise

Ein Stylesheet kann ein von Visio bereitgestelltes oder selbst erstelltes Stylesheet sein. Wenn Sie ein Stylesheet speichern, das Sie im folgenden Ordner erstellen, wird es in der Dropdownliste Stylesheet auf der Registerkarte Erweitert des Dialogfelds Speichern als Webseite angezeigt (BackstageButton-Registerkarte>Speichern unter>Listentyp-Webseite>(*.htm;*.html)>Veröffentlichen>Erweitert):

\ \ your_Visio_pathyour_language_ID\

Visio identifiziert Stylesheets, indem der Ordner nach Ihrer Sprach-ID (z. B. 1033) für CSS-Dateien durchsucht wird.

Beispiel

Das folgende Vba-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die Stylesheet-Eigenschaft verwenden, um der von Ihnen erstellten Webseite das Steel-Stylesheet (von Visio bereitgestellt) zuzuweisen.

Ersetzen path\filename.htm Sie vor dem Ausführen dieses Makros durch einen gültigen Zielpfad auf Ihrem Computer und den Dateinamen, den Sie Ihrer Webseite zuweisen möchten. Ersetzen Sie your_Visio_path außerdem und your_language_ID durch den Pfad zu Visio-Stylesheets auf Ihrem Computer, z. B.:

C:\Programme\Microsoft Office\Visio14\1033...

Public Sub Stylesheet_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .Stylesheet = "your_Visio_path\your_language_ID\Steel.css" 
 .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.