PageSetup.AvailablePageSizes プロパティ (Publisher)

現在のパブリケーションで使用可能なすべての PageSize オブジェクトを含む PageSizes コレクションを返します。

構文

式。AvailablePageSizes

式PageSetup オブジェクトを表す変数。

戻り値

PageSizes

注釈

PageSize オブジェクトは、[ 白紙のページ サイズ] [ページ設定] ダイアログの [Microsoft Publisher のユーザー インターフェイスに表示されるアイコンに対応します。

AvailablePageSizes プロパティによって返されるページのサイズも含まれますだけでなく、ページ サイズが、Publisher によって提供されるカスタム ページ サイズを作成またはダウンロードするには、存在する場合。

ユーザー設定のページ サイズを追加または削除すると、すべての既存のページ サイズのインデックス番号が変更されることがあります。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、現在の文書で使用できるすべてのページ サイズとその対応するインデックス番号の一覧が含まれたテキスト ファイルを作成する方法を示します。 現在のユーザーの [ドキュメント] フォルダーまたは [マイ ドキュメント] フォルダーにテキスト ファイルが保存されます。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。