Propriété VisWebPageSettings.SecFormat

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

Syntaxe

expression. Format de sécurité

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, voir la propriété AltFormat .

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

• PNG (Portable Network Graphics), valeur par défaut
• JPG (format JPEG File Interchange)
• Format GIF (Graphics Interchange Format)

Cette valeur correspond à la valeur sélectionnée dans la liste située sous la zone case activée Fournir un autre format pour les navigateurs plus anciens (si elle est sélectionnée) de l’onglet Avancé de la boîte de dialogue Enregistrer en tant que page Web (onglet >BackstageButtonEnregistrer> sous la liste > TypeEnregistrer sousPage 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 XAML (valeur par défaut).

Avant d’exécuter cette macro, remplacez-la path\filename.htm par un chemin d’accès cible valide sur votre ordinateur et le nom de fichier que vous souhaitez attribuer à 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.