Método Slides.Range (PowerPoint)

Retorna um objeto SlideRange que representa um subconjunto dos slides em uma coleção Slides .

Sintaxe

expressão. Intervalo (Índice)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Opcional	Variantes	Os slides individuais que deverão ser incluídos no intervalo. Pode ser um Integer especificando o número de índice do slide, um String especificando o nome do slide ou uma matriz contendo inteiros ou sequências de caracteres. Se esse argumento for omitido, o método Range retorna todos os objetos na coleção especificada.

Valor de retorno

SlideRange

Comentários

Embora você possa usar o método Range para retornar qualquer número de formas ou slides, é mais simples usar o método Item se desejar retornar um único membro da coleção. Por exemplo, Shapes(1) é mais simples que Shapes.Range(1), e Slides(2) é mais simples que Slides.Range(2).

Para especificar uma matriz de números inteiros ou cadeias de caracteres para o índice, você pode usar a função Array. Por exemplo, a instrução a seguir retorna duas formas especificadas por nome.

Dim myArray() As Variant, myRange As Object myArray = Array("Oval 4", "Rectangle 5") Set myRange = ActivePresentation.Slides(1).Shapes.Range(myArray)

Exemplo

Este exemplo define a cor de título para os slides um e três.

Set mySlides = ActivePresentation.Slides.Range(Array(1, 3))

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

Este exemplo define a cor de título para os slides chamados "Slide6" e "Slide8".

Set mySlides = ActivePresentation.Slides _
    .Range(Array("Slide6", "Slide8"))

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

Este exemplo define a cor de título para todos os slides da apresentação ativa.

Set mySlides = ActivePresentation.Slides.Range

mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 0, 0)

Este exemplo cria uma matriz que contém todos os slides de título da apresentação ativa, usa essa matriz para definir um intervalo de slides e, em seguida, define a cor de título para todos os slides nesse intervalo.

Dim MyTitleArray() As Long

Set pSlides = ActivePresentation.Slides

ReDim MyTitleArray(1 To pSlides.Count)

For Each pSlide In pSlides

    If pSlide.Layout = ppLayoutTitle Then

        nCounter = nCounter + 1

        MyTitleArray(nCounter) = pSlide.SlideIndex

    End If

Next pSlide

ReDim Preserve MyTitleArray(1 To nCounter)



Set rngTitleSlides = ActivePresentation.Slides.Range(MyTitleArray)

rngTitleSlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 123, 99)

Confira também

Objeto de slides

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.