Propriété VisWebPageSettings.StoreInFolder

Détermine si les fichiers de prise en charge de la page web à créer sont placés dans un sous-dossier portant le même nom que le fichier HTML racine. Lecture-écriture.

Syntaxe

expression. StoreInFolder

Expression Expression qui renvoie un objet VisWebPageSettings .

Valeur renvoyée

Long

Remarques

Définissez StoreInFolder sur une valeur différente de zéro (True) pour placer les fichiers de page web de prise en charge dans un sous-dossier portant le même nom que le fichier HTML racine ; sinon, définissez-la sur zéro (False).

Si vous définissez la propriété StoreInFolder sur True (non zéro), Microsoft Visio place les fichiers de prise en charge dans un sous-dossier précédé du même nom que le fichier .htm. Si le fichier .htm ou le sous-dossier est déplacé ou supprimé, son sous-dossier ou .htm fichier correspondant est également déplacé ou supprimé.

Si vous définissez la propriété StoreInFolder sur False (0), Visio place tous les fichiers de prise en charge dans le même dossier que le fichier .htm.

Affecter la valeur True à la propriété StoreInFolder revient à activer la case à cocher Organiser les fichiers de prise en charge dans un dossier sous l’onglet Général de la boîte de dialogue Enregistrer en tant que page web (onglet> BackstageButton Enregistrer> sousla liste> type de type Page Web (*.htm;*.html)>Publier).

Exemple

La macro suivante montre comment définir la propriété StoreInFolder afin qu’un sous-dossier qui contient tous les fichiers de prise en charge d’une page web et porte le même nom que le fichier .htm soit créé.

Avant d’exécuter cette macro, remplacez par path\filename.htm un chemin d’accès cible valide sur votre ordinateur et le nom de fichier que vous souhaitez affecter à votre page web.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.