Propriedade SlideRange.Shapes (PowerPoint)

Retorna uma coleção de formas que representa todos os elementos que tenham sido colocados ou inseridos no slide especificado, slide mestre ou intervalo de slides. Somente leitura.

Sintaxe

expressão. Formas

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

Valor de retorno

Formas

Comentários

Coleção Shapes retornada pode conter os desenhos, formas, objetos OLE, figuras, objetos de texto, títulos, cabeçalhos, rodapés, números de slide e objetos de data e hora em um slide ou da imagem do slide em uma página de anotações.

Exemplo

Este exemplo adiciona um retângulo de 100 pontos de largura por 50 pontos de altura, cujo canto superior esquerdo está a 5 pontos da borda esquerda do slide um na apresentação ativa, e a 25 pontos da parte superior do slide.

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

Este exemplo define a textura de preenchimento para a forma três, no slide um da apresentação ativa.

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

Assumindo que o slide um da apresentação ativa contenha um título, a segunda e a terceira linhas de código no exemplo a seguir definirá o texto do título no slide um da apresentação.

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

Assumindo que a forma dois no slide dois da apresentação ativa contenha um quadro de texto, o exemplo a seguir adicionará uma série de parágrafos ao slide. Observe que Chr(13) é usado para inserir marcas de parágrafo no texto.

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

Para a maioria dos layouts de slide, as primeiras formas no slide são espaços reservados de texto, e o exemplo seguinte cumpre a mesma tarefa do exemplo anterior.

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

Confira também

Objeto SlideRange

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.