VisWebPageSettings.Stylesheet-Eigenschaft

Gibt ein von Microsoft Visio bereitgestelltes oder ein von Ihnen erstelltes Cascading Stylesheet an, das auf die Webseite angewendet wird. Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. Stylesheet

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

Rückgabewert

String

Hinweise

Ein Stylesheet kann von Visio bereitgestellt oder von Ihnen selbst erstellt werden. Wenn Sie ein Stylesheet, das Sie erstellen, im folgenden Ordner speichern, wird es in der Dropdownliste "Stylesheet" auf der Registerkarte "Erweitert" des Dialogfelds "Als Webseite speichern" angezeigt. (Registerkarte> "BackstageButton" Speichern unter>> Dateityp Webseite (*.htm;*.html)>Publish>Advanced):

\ \ your_Visio_pathyour_language_ID\

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

Beispiel

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

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

C:\Program Files\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.