Retornar objetos de coleções

O método Item retorna um único objeto de uma coleção. O exemplo a seguir define a variável firstPres como um objeto Presentation que representa a apresentação uma variável para um objeto Presentation que representa a apresentação um.

Set firstPres = Presentations.Item(1)

O método Item é o método padrão para a maioria das coleções, por isso você pode escrever a mesma instrução de maneira abreviada omitindo a palavra-chave Item.

Set firstPres = Presentations(1)

Para obter mais informações sobre uma coleção específica, consulte o tópico da Ajuda sobre essa coleção ou o método Item da coleção.

Objetos nomeados

Ainda que em geral você possa especificar um valor inteiro com o método Item, pode ser mais conveniente retornar um objeto pelo nome. Muitos objetos recebem nomes gerados automaticamente ao serem criados. Por exemplo, o primeiro slide criado receberá automaticamente o nome "Slide1". Se as primeiras duas formas criadas forem um retângulo e uma oval, os nomes padrão serão "Retângulo 1" e "Oval 2". Talvez você deseje dar a um objeto um nome mais significativo para facilitar sua referência posterior. Mais frequentemente, isso é feito pela definição da propriedade Name do objeto. O exemplo a seguir define um nome significativo para um slide à medida que é adicionado. Você pode usar o nome em vez do número de índice para se referir ao slide.

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

Valores de índice predefinidos

Algumas coleções têm valores de índice predefinidos que você pode usar para retornar objetos simples. Cada valor de índice predefinido é representando por uma constante. Por exemplo, você especifica uma constante PpTextStyleType com o método Item da coleção TextStyles para retornar um único estilo de texto.

O exemplo a seguir define as margens da área do corpo em slides da apresentação ativa.

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With

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.