Propriété VisWebPageSettings.Stylesheet

Article
04/07/2023

Spécifie une feuille de style en cascade (CSS) fournie par Microsoft Visio, ou une feuille de style que vous avez créée, qui est appliquée à la page web. Lecture-écriture.

Syntaxe

expression. Stylesheet

Expression Expression qui renvoie un objet VisWebPageSettings .

Valeur renvoyée

String

Remarques

Une feuille de style peut être fournie par Visio ou une feuille de style que vous créez vous-même. Si vous stockez une feuille de style que vous créez dans le dossier suivant, elle apparaît dans la liste déroulante Feuille de style sous l’onglet Avancé de la boîte de dialogue Enregistrer en tant que page web (onglet BackstageButton>Enregistrer> sous la liste > detype page Web (*.htm;*.html)>Publier>avancé) :

\ \ your_Visio_path your_language_ID\

Visio identifie les feuilles de style en recherchant des fichiers CSS dans le dossier nommé pour votre ID de langue (par exemple, 1033).

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la propriété Stylesheet pour affecter la feuille de style Steel (fournie 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 aux feuilles de style Visio sur votre ordinateur, par exemple :

C:\Program Files\Microsoft Office\Visio14\1033...

Public Sub Stylesheet_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .Stylesheet = "your_Visio_path\your_language_ID\Steel.css" 
 .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.

Partager via