VisWebPageSettings.StoreInFolder-Eigenschaft

Bestimmt, ob unterstützende Dateien für die zu erstellende Webseite in einem Unterordner platziert werden, der denselben Namen wie die HTML-Stammdatei hat. Lese-/Schreibzugriff.

Syntax

Ausdruck. StoreInFolder

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

Rückgabewert

Long

Hinweise

Legen Sie StoreInFolder auf einen Wert ungleich 0 (True) fest, um unterstützende Webseitendateien in einem Unterordner zu platzieren, der denselben Namen wie die HTML-Stammdatei hat. Andernfalls legen Sie ihn auf 0 (False) fest.

Wenn Sie die StoreInFolder-Eigenschaft auf True (ungleich 0) festlegen, platziert Microsoft Visio die unterstützenden Dateien in einem Unterordner, dem der name wie die .htm Datei vorangestellt ist. Wenn entweder die .htm-Datei oder der Unterordner verschoben oder gelöscht wird, wird auch der entsprechende Unterordner oder .htm Datei verschoben oder gelöscht.

Wenn Sie die StoreInFolder-Eigenschaft auf False (0) festlegen, speichert Visio alle unterstützenden Dateien im selben Ordner wie die .htm Datei.

Das Festlegen der StoreInFolder-Eigenschaft auf True entspricht dem Aktivieren des Kontrollkästchens Unterstützende Dateien in einem Ordner organisieren auf der Registerkarte Allgemein des Dialogfelds Speichern als Webseite (BackstageButton registerkarte >Speichern als>Listentyp-Webseite>(*.htm;*.html)>Veröffentlichen).

Beispiel

Das folgende Makro zeigt, wie die StoreInFolder-Eigenschaft so festgelegt wird, dass ein Unterordner erstellt wird, der alle unterstützenden Dateien einer Webseite enthält und denselben Namen wie die .htm Datei hat.

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 StoreInFolder_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .StoreInFolder = 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.