Compartilhar via

Propriedade PageSetup.AvailablePageSizes (Publisher)

  • Artigo

Retorna a coleção PageSizes que contém todos os objetos PageSize disponíveis na publicação atual.

Sintaxe

expressão. AvailablePageSizes

Expressão Uma variável que representa um objeto PageSetup .

Valor de retorno

PageSizes

Comentários

Os objetos PageSize correspondem aos ícones exibidos em Tamanhos de página em branco na caixa de diálogo Configurar página na interface do usuário do Microsoft Publisher.

Os tamanhos de página retornados pela propriedade AvailablePageSizes incluem não apenas os tamanhos de página fornecidos pelo Microsoft Publisher, mas também os tamanhos de página personalizados que você cria ou baixa, se houver.

Ao adicionar ou remover tamanhos de página personalizados, o número de índice de todos os tamanhos de página existentes pode ser alterado.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como criar um arquivo de texto contendo a lista de todos os tamanhos de página disponíveis na publicação atual e seus números de índice correspondentes. Ele salva o arquivo de texto na pasta Documentos ou Meus Documentos do usuário atual.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.