Freigeben über

VisWebPageSettings.ThemeName-Eigenschaft

  • Artikel

Weist der Seite, die Sie erstellen, ein Webseitendesign zu. Lese-/Schreibzugriff.

Syntax

Ausdruck. ThemeName

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

Rückgabewert

String

Hinweise

Verwenden Sie Designs, die von Microsoft Visio bereitgestellt werden, oder Designs, die Sie selbst erstellen. Wenn Sie ein eigenes Design erstellen möchten, gehen Sie wie folgt vor:

  1. Erstellen Sie eine HTM-Datei, die den folgenden Begriff in einem HTML-Tag enthält: ##VIS_SAW_FILE##. Visio erkennt HTM-Dateien, die dieses Tag enthalten, als Designdateien.

  2. Speichern Sie die Datei im folgenden Ordner: \ your_Visio_path\ your_language_ID\

Ihre Designdatei wird dann in der Dropdownliste Host in Webseite im Dialogfeld Als Webseite speichern angezeigt (Registerkarte> BackstageButton Speichern als>Listentypwebseite>speichern (*.htm;*.html)>Erweitert veröffentlichen>).

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die ThemeName-Eigenschaft verwenden, um der von Ihnen erstellten Webseite das (von Visio bereitgestellte) Basic-Design 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 Microsoft Visio auf Ihrem Computer (z. B. C:\Programme\Microsoft Office\Visio14\1033...).

Public Sub ThemeName_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .ThemeName = "your_Visio_path\your_language_ID\Basic.htm" 
 .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.