Objeto Shapes (PowerPoint)
Uma coleção de todos os da forma objetos no slide especificado.
Comentários
Cada objeto Shape representa um objeto na camada de desenho, como uma AutoForma, uma forma livre, um objeto OLE ou uma imagem.
Observação
Se você deseja trabalhar com um subconjunto das formas em um documento por exemplo, para fazer algo apenas com as AutoFormas do documento ou somente as formas selecionadas você deve construir um ShapeRange coleção que contém as formas que você deseja trabalhar. Para obter uma visão geral sobre como trabalhar com uma única forma ou com mais de uma forma por vez, consulte Como trabalhar com formas (Objetos de Desenho).
Exemplo
Use a propriedade Shapes para retornar a coleção Shapes. O exemplo a seguir seleciona todas as formas da apresentação ativa.
ActivePresentation.Slides(1).Shapes.SelectAll
Observação
[!OBSERVAçãO] Se desejar fazer algo (como excluir ou definir uma propriedade) com todas as formas em um documento ao mesmo tempo, use o intervalométodo sem nenhum argumento, criar um objeto ShapeRange que contém todas as formas na coleção Shapes e em seguida, aplique a propriedade apropriada ou método no objeto ShapeRange.
Use o AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect, ou AddTitlemétodo para criar uma nova forma e adicioná-lo à coleção Shapes. Use o método BuildFreeformem conjunto com o método ConvertToShapepara criar uma nova forma livre e adicioná-la à coleção. O exemplo a seguir adiciona um retângulo à apresentação ativa.
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
Use Shapes (index), em que o índice é o nome da forma ou o número de índice, para retornar um único objeto Shape . O exemplo a seguir define o preenchimento para uma forma predefinida para a forma um da apresentação ativa.
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
Use Shapes.Range (index), em que o índice é o nome ou o número do índice da forma ou uma matriz de nomes de forma ou números de índice, para retornar uma coleção ShapeRange que representa um subconjunto da coleção Shapes . O exemplo a seguir define o padrão de preenchimento das formas um e três na apresentação ativa.
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
Use Shapes.Placeholders (index), em que o índice é o número de espaço reservado, para retornar um objeto Shape que representa um espaço reservado. Se o slide especificado tiver um título, use o Placeholders (1) ou Shapes. Title para retornar o espaço reservado para título. O exemplo a seguir adiciona um slide à apresentação ativa e, em seguida, adiciona texto ao título e ao subtítulo (o subtítulo é segundo espaço reservado em um slide com o layout desta).
With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes
.Title.TextFrame.TextRange = "This is the title text"
.Placeholders(2).TextFrame.TextRange = "This is subtitle text"
End With
Métodos
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Creator |
| HasTitle |
| Responsável |
| Espaços reservados |
| Title |
Confira também
Referência de modelo de objeto do PowerPoint
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.
Comentários
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulte https://aka.ms/ContentUserFeedback.
Enviar e exibir comentários de