Propriété PageSetup.AvailablePageSizes (Publisher)

Article
04/07/2023

Renvoie la collection PageSizes qui contient tous les objets PageSize disponibles dans la composition actuelle.

Syntaxe

expression. AvailablePageSizes

Expression Variable qui représente un objet PageSetup .

Valeur renvoyée

PageSizes

Remarques

Les objets PageSize correspondent aux icônes affichées sous Taille des pages vierges dans la boîte de dialogue Mise en Page dans l'interface utilisateur de Microsoft Publisher.

Les tailles de page renvoyées par la propriété AvailablePageSizes incluent non seulement les tailles de page fournies par Microsoft Publisher, mais également les tailles de page personnalisées que vous créez ou téléchargez, le cas échéant.

Lorsque vous ajoutez ou supprimez des tailles de page personnalisées, il se peut que le numéro d'index de toutes les tailles de page existantes change.

Exemple

La macro Microsoft Visual Basic pour applications (VBA) suivante indique comment créer un fichier texte qui contient la liste de toutes les tailles de page disponibles dans la composition en cours et leurs numéros d'index correspondants. Il enregistre le fichier texte dans le dossier Documents ou Mes documents de l’utilisateur actuel.

Public Sub AvailablePageSizes_Example() 
 
 Dim pubPageSize As Publisher.PageSize 
 Dim pubPageSizes As Publisher.PageSizes 
 Dim intCount As Integer 
 Dim lngPageSizeFile As Long 
 
 intCount = 1 
 
 Set pubPageSizes = ThisDocument.PageSetup.AvailablePageSizes 
 
 lngPageSizeFile = FreeFile 
 Open Environ("USERPROFILE") + "\My Documents\PageSizeList.txt" For Output Access Write As lngPageSizeFile 
 
 For Each pubPageSize In pubPageSizes 
 Write #lngPageSizeFile, pubPageSize.Name, intCount 
 intCount = intCount + 1 
 Next 
 
 Close lngPageSizeFile 
 
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