Partager via

Propriété VisWebPageSettings.ThemeName

  • Article

Affecte un thème de page web à la page que vous créez. Lecture-écriture.

Syntaxe

expression. ThemeName

Expression Expression qui renvoie un objet VisWebPageSettings .

Valeur renvoyée

String

Remarques

Utilisez des thèmes fournis par Microsoft Visio ou des thèmes que vous créez vous-même. Si vous souhaitez créer votre propre thème, procédez comme suit :

  1. Créez un fichier HTM qui contient le terme suivant dans une balise HTML : ##VIS_SAW_FILE##. Visio reconnaît les fichiers HTM qui contiennent cette balise en tant que fichiers de thème.

  2. Stockez le fichier dans le dossier suivant : \ your_Visio_path\ your_language_ID\

Votre fichier de thème s’affiche ensuite dans la liste déroulante Hôte dans la page web de la boîte de dialogue Enregistrer en tant que page web (onglet >BackstageButtonEnregistrer> sousla liste> type Page web (*.htm;*.html)>Publier>avancé).

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la propriété ThemeName pour affecter le thème De base (fourni par Visio) à la page web que vous créez.

Avant d’exécuter cette macro, remplacez par path\filename.htm un chemin cible valide sur votre ordinateur et le nom de fichier que vous souhaitez attribuer à votre page web. your_Visio_path Remplacez également et your_language_ID par le chemin d’accès à Microsoft Visio sur votre ordinateur (par exemple, C:\Program Files\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

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.