VisWebPageSettings.SecFormat, propriété

Spécifie le format de sortie secondaire pour la page web. Lecture-écriture.

Syntaxe

expression. SecFormat

expression Expression qui renvoie un objet VisWebPageSettings .

Valeur renvoyée

String

Remarques

Le format de sortie secondaire est utilisé si le navigateur ne prend pas en charge le format de sortie principal. Par exemple, si le format principal est XAML et que le plug-in de navigateur Silverlight requis n’est pas installé, la sortie de la page web utilise le format secondaire.

Le format de sortie principal est spécifié par la propriété PriFormat . Pour plus d’informations sur les navigateurs compatibles avec les formats sélectionnés, consultez la propriété AltFormat .

Les valeurs possibles pour la propriété SecFormat sont les suivantes :

• PNG (Portable Network Graphics), la valeur par défaut
• JPG (Format d’échange de fichiers JPEG)
• Format GIF (Graphics Interchange Format)

Cette valeur correspond à la valeur sélectionnée dans la liste sous la zone Fournir un autre format pour les navigateurs plus anciens case activée (si elle est sélectionnée) sous l’onglet Avancé de la boîte de dialogue Enregistrer en tant que page web (Onglet BackstageButton>Enregistrer> sousla liste > Type de données Page web (*.htm ;*.html)>Publier>avancé).

Exemple

La macro suivante montre comment utiliser la propriété SecFormat pour définir la valeur de format secondaire sur JPG pour les navigateurs qui ne prennent pas en charge le format principal de XAML (valeur par défaut).

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 SecFormat_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .AltFormat = True 
 .SecFormat = "JPG" 
 .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.