Freigeben über


PageSetup.AvailablePageSizes-Eigenschaft (Publisher)

Gibt die PageSizes-Auflistung zurück, die alle pageSize-Objekte enthält, die in der aktuellen Publikation verfügbar sind.

Syntax

Ausdruck. AvailablePageSizes

Ausdruck Eine Variable, die ein PageSetup-Objekt darstellt.

Rückgabewert

PageSizes

HinwBemerkungeneise

PageSize -Objekte entsprechen den Symbolen unter Leere Seiten im Dialogfeld Seite einrichten auf der Microsoft Publisher-Benutzeroberfläche angezeigt.

Von der AvailablePageSizes -Eigenschaft zurückgegebenen Seitenformate umfassen nicht nur die von Microsoft Publisher Seitenformate, sondern auch benutzerdefinierte Seitenformate, die Sie erstellen oder herunterladen, falls vorhanden.

Wenn Sie benutzerdefinierte Seitenformate hinzufügen oder entfernen, ändert sich ggf. die Indexnummer für alle vorhandenen Seitenformate.

Beispiel

The following Microsoft Visual Basic for Applications (VBA) macro shows how to create a text file that contains the list of all page sizes available in the current publication and their corresponding index numbers. Die Textdatei wird im Ordner Dokumente oder Eigene Dokumente des aktuellen Benutzers gespeichert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.