Objeto Shape (Excel)
Representa um objeto na camada de desenho, como uma AutoForma, uma forma livre, um objeto OLE ou uma imagem.
O objeto Forma é um membro do conjunto Formas. O conjunto formas contém todas as formas em uma pasta de trabalho.
Observação
Há três objetos que representam formas: a coleção Shapes , que representa todas as formas em uma pasta de trabalho; a coleção ShapeRange , que representa um subconjunto especificado das formas em uma pasta de trabalho (por exemplo, um objeto ShapeRange pode representar formas um e quatro na pasta de trabalho, ou pode representar todas as formas selecionadas na pasta de trabalho); e o objeto Shape , que representa uma única forma em uma planilha. Se você deseja trabalhar com várias formas ao mesmo tempo ou com formas dentro da seleção, use uma coleção ShapeRange.
Para retornar... | Usar... |
---|---|
Um objeto Shape que representa uma das formas anexadas por um conector | A propriedade BeginConnectedShape ou EndConnectedShape do objeto ConnectorFormat . |
Uma forma livre recém-criada | Os métodos BuildFreeform e AddNodes para definir a geometria de uma nova forma livre e usar o método ConvertToShape para criar o formulário livre e retornar o objeto Shape que o representa. |
Um objeto Shape que representa uma única forma em uma forma agrupada | GroupItems (índice), em que o índice é o nome da forma ou o número do índice dentro do grupo. |
Um grupo recém-formado de formas | O método Group ou Regroup do objeto ShapeRange para agrupar um intervalo de formas e retornar um único objeto Shape que representa o grupo recém-formado. Depois que um grupo for formado, você pode trabalhar com o grupo da mesma forma que trabalha com qualquer outra forma. |
Um objeto Shape que representa uma forma existente | Formas (índice), em que o índice é o nome da forma ou o número do índice. |
Um objeto Shape que representa uma forma dentro da seleção | Seleção. ShapeRange (índice), em que o índice é o nome da forma ou o número do índice. |
O exemplo a seguir inverte horizontalmente a forma um e a forma chamada Rectangle 1 em myDocument.
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Flip msoFlipHorizontal
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal
A cada forma é atribuído um nome padrão quando você adiciona a coleção Shapes. Para dar à forma um nome mais significativo, use a propriedade Name. O exemplo a seguir adiciona um retângulo ao myDocument, dá-lhe o nome Red Square e, em seguida, define sua cor de primeiro plano e estilo de linha.
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With
O exemplo a seguir define o preenchimento para a primeira forma da seleção na janela ativa, supondo que haja pelo menos uma forma na seleção.
ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = _
RGB(255, 0, 0)
- Apply
- Copy
- CopyPicture
- Cut
- Delete
- Duplicate
- Flip
- IncrementLeft
- IncrementRotation
- IncrementTop
- PickUp
- RerouteConnections
- ScaleHeight
- ScaleWidth
- Select
- SetShapesDefaultProperties
- Ungroup
- ZOrder
- Adjustments
- AlternativeText
- Application
- AutoShapeType
- BackgroundStyle
- BlackWhiteMode
- BottomRightCell
- Callout
- Chart
- Child
- ConnectionSiteCount
- Connector
- ConnectorFormat
- ControlFormat
- Creator
- Decorative
- Fill
- FormControlType
- Glow
- GraphicStyle
- GroupItems
- HasChart
- HasSmartArt
- Height
- HorizontalFlip
- Hyperlink
- ID
- Left
- Line
- LinkFormat
- LockAspectRatio
- Locked
- Model3D
- Nome
- Nodes
- OLEFormat
- OnAction
- Parent
- ParentGroup
- PictureFormat
- Placement
- Reflection
- Rotation
- Shadow
- ShapeStyle
- SmartArt
- SoftEdge
- TextEffect
- TextFrame
- TextFrame2
- ThreeD
- Título
- Top
- TopLeftCell
- Type
- VerticalFlip
- Vertices
- Visible
- Width
- ZOrderPosition
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.