VisWebPageSettings.StoreInFolder-Eigenschaft

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

Syntax

Ausdruck verwendet werden. StoreInFolder

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

Rückgabewert

Long

Hinweise

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

Wenn Sie die StoreInFolder-Eigenschaft auf True (ungleich Null) festlegen, platziert Microsoft Visio die unterstützenden Dateien in einem Unterordner mit dem gleichen Namen wie die .htm Datei. Wenn 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, platziert 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 "Als Webseite speichern" (Registerkarte >"BackstageButton" Speichern unter>> Dateityp Webseite (*.htm;*.html)>Publish).

Beispiel

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

Ersetzen path\filename.htm Sie es vor dem Ausführen dieses Makros 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.