Classe Shape (Excel VBA)

A classe Shape representa um objeto na camada de desenho, como uma AutoForma, uma forma livre, um objeto OLE ou uma imagem.

Os principais procedimentos da classe Shape são Copy, Delete, Select, ShapeRange.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPicture2, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox e Shapes.AddTextEffect

For Each

Aqui está um exemplo de processamento dos itens Shape em uma coleção.

For Each s In Worksheets(1).Shapes 
    If s.HorizontalFlip Then s.Flip msoFlipHorizontal 
    If s.VerticalFlip Then s.Flip msoFlipVertical 
Next

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Cell with its procedures BottomRightCell e TopLeftCell
Copy with its procedures Copy e CopyPicture
3D with its procedures Model3D e ShapeRange.Model3D
Sort/Order with its procedures ZOrder, ZOrderPosition, ShapeRange.ZOrder e ShapeRange.ZOrderPosition
Add with its procedures Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPicture2, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox e Shapes.AddTextEffect

Métodos

Estes são os principais métodos da classe Shape

Delete - Exclui o objeto.

shp.Delete

Select - Seleciona o objeto.

shp.Select

ShapeRange.Delete - Exclui o objeto.

ActiveChart.OLEObjects.ShapeRange.Delete

ShapeRange.Select - Seleciona o objeto.

ActiveChart.OLEObjects.ShapeRange.Select

Estes são os principais métodos da classe

GroupShapes.Item - Retorna um único objeto de uma coleção.

Apply - Aplica-se à formatação de forma especificada que foi copiada usando o método pickup .

Cut - Recorta o objeto para a Área de Transferência.

Duplicate - Duplica o objeto e retorna uma referência para a nova cópia.

Flip - Inverte a forma especificada ao redor de seu eixo horizontal ou vertical.

IncrementLeft - Move a forma especificada horizontalmente pelo número especificado de pontos.

IncrementRotation - Altera a rotação da forma especificada ao redor do eixo z pelo número especificado de graus. Use a propriedade Rotation para definir a rotação absoluta da forma.

IncrementTop - Move a forma especificada verticalmente pelo número especificado de pontos.

PickUp - Copia a formatação da forma especificada. Use o método Apply para aplicar a formatação copiada a outra forma.

RerouteConnections - Este método redireciona todos os conectores anexados à forma especificada; se a forma especificada for um conector, ela será redirecionada.

ScaleHeight - Dimensiona a altura da forma por um fator especificado. Para imagens e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou atual. Formas que não sejam imagens ou objetos OLE são sempre dimensionadas em relação a sua altura atual.

ScaleWidth - Dimensiona a largura da forma por um fator especificado. Para imagens e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou atual. Formas que não sejam imagens ou objetos OLE são sempre dimensionadas em relação à sua largura atual.

SetShapesDefaultProperties - Define a formatação da forma especificada como padrão para a mesma.

Ungroup - Desagrupa quaisquer formas agrupadas na forma especificada ou intervalo de formas. Desagrupa imagens e objetos OLE dentro da forma ou do intervalo de formas especificado.

ShapeRange.Align - Alinha as formas no intervalo especificado de formas.

ShapeRange.Apply - Aplica-se à formatação de forma especificada que foi copiada usando o método pickup .

ShapeRange.Distribute - Distribui horizontal e verticalmente as formas no intervalo especificado de formas.

ShapeRange.Duplicate - Duplica o objeto e retorna uma referência para a nova cópia.

ShapeRange.Flip - Inverte a forma especificada ao redor de seu eixo horizontal ou vertical.

ShapeRange.Group - Agrupa as formas no intervalo especificado.

ShapeRange.IncrementLeft - Move a forma especificada horizontalmente pelo número especificado de pontos.

ShapeRange.IncrementRotation - Altera a rotação da forma especificada ao redor do eixo z pelo número especificado de graus. Use a propriedade Rotation para definir a rotação absoluta da forma.

ShapeRange.IncrementTop - Move a forma especificada verticalmente pelo número especificado de pontos.

ShapeRange.Item - Retorna um único objeto de uma coleção.

ShapeRange.PickUp - Copia a formatação da forma especificada. Use o método Apply para aplicar a formatação copiada a outra forma.

ShapeRange.Regroup - Reagrupa o grupo que o intervalo de formas especificado pertencia anteriormente. Retorna as formas reagrupadas como um único objeto Shape .

ShapeRange.RerouteConnections - Este método redireciona todos os conectores anexados à forma especificada; se a forma especificada for um conector, ela será redirecionada.

ShapeRange.ScaleHeight - Dimensiona a altura da forma por um fator especificado. Para imagens e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou atual. Formas que não sejam imagens ou objetos OLE são sempre dimensionadas em relação a sua altura atual.

ShapeRange.ScaleWidth - Dimensiona a largura da forma por um fator especificado. Para imagens e objetos OLE, você pode indicar se deseja dimensionar a forma em relação ao tamanho original ou atual. Formas que não sejam imagens ou objetos OLE são sempre dimensionadas em relação à sua largura atual.

ShapeRange.SetShapesDefaultProperties - Define a formatação da forma especificada como padrão para a mesma.

ShapeRange.Ungroup - Desagrupa quaisquer formas agrupadas na forma especificada ou intervalo de formas. Desagrupa imagens e objetos OLE dentro da forma ou do intervalo de formas especificado.

Shapes.BuildFreeform - Cria um objeto de forma livre. Retorna um objeto FreeformBuilder que representa a forma livre durante sua criação.

Shapes.Item - Retorna um único objeto de uma coleção.

Shapes.SelectAll - Seleciona todas as formas na coleção Shapes especificada.

Propriedades

GroupShapes.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim gss As GroupShapes: Set gss = 
Dim lngCount As Long
lngCount = gss.Count

GroupShapes.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim gss As GroupShapes: Set gss = 
Dim objParent As Object
Set objParent = gss.Parent

GroupShapes.Range Retorna um objeto ShapeRange que representa um subconjunto das formas em uma coleção Shapes .

Dim lngIndex() As Long: lngIndex() = 
Dim gss As GroupShapes: Set gss = 
Dim sreRange As ShapeRange
Set sreRange = gss.Range(Index:=lngIndex())

Adjustments Retorna um objeto Adjustments que contém valores de ajuste para todos os ajustes na forma especificada. Aplica-se a qualquer objeto Shape que representa uma AutoForma, WordArt ou conector.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = shp.Adjustments

AlternativeText Retorna ou define a sequência de texto descritiva alternativa para um objeto Shape quando o objeto é salvo em uma página da Web. String de leitura/gravação.

shp.AlternativeText =

AutoShapeType Retorna ou define o tipo de forma do objeto Shape ou ShapeRange especificado, que deve representar uma AutoForma que não seja uma linha, um desenho de forma livre ou um conector. MsoAutoShapeType de leitura/gravação.

Worksheets(1).Shapes(3).AutoShapeType = msoShape16pointStar

BackgroundStyle Retorna ou define o estilo do segundo plano. Leitura/gravação MsoBackgroundStyleIndex.

shp.BackgroundStyle =

BlackWhiteMode Retorna ou define um valor que indica a maneira pela qual a forma especificada aparecerá quando a apresentação for exibida em preto e branco. Leitura/gravação MsoBlackWhiteMode.

Worksheets(1).Shapes(3).BlackWhiteMode = msoBlackWhiteGrayOutline

Callout Retorna um objeto CalloutFormat que contém as propriedades de formatação de linha para a forma especificada. Aplica-se a um objeto Shape que representa textos explicativos de linha. Somente leitura.

Dim cftCallout As CalloutFormat
Set cftCallout = shp.Callout

Chart Retorna um objeto Chart que representa o gráfico contido na forma. Somente leitura.

Dim chrChart As Chart
Set chrChart = shp.Chart

Child Retorna msoTrue se a forma especificada for uma forma filha ou se todas as formas em um intervalo de formas forem formas filhas de um mesmo pai. Retorna MsoFalse se a forma selecionada não for uma forma filha. Retorna msoTriStateMixed se apenas algumas das formas selecionadas são formas filhas. MsoTriState somente leitura.

Dim mtsChild As Office.MsoTriState
mtsChild = shp.Child

ConnectionSiteCount Retorna o número de locais de conexão na forma especificada. Long somente leitura.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = shp.ConnectionSiteCount

Connector True se a forma especificada for um conector. MsoTriState somente leitura.

Dim mtsConnector As Office.MsoTriState
mtsConnector = shp.Connector

ConnectorFormat Retorna um objeto ConnectorFormat que contém propriedades de formatação de conector. Aplica-se a um objeto Shape que representa conectores. Somente leitura.

Dim cftConnectorFormat As ConnectorFormat
Set cftConnectorFormat = shp.ConnectorFormat

ControlFormat Retorna um objeto ControlFormat que contém as propriedades de controle do Microsoft Excel. Somente leitura.

Dim cftControlFormat As ControlFormat
Set cftControlFormat = shp.ControlFormat

Decorative Define ou retorna o sinalizador decorativo para o objeto especificado. Leitura/gravação.

shp.Decorative =

Fill Retorna um objeto FillFormat para uma forma especificada ou um objeto ChartFillFormat para um gráfico especificado que contém propriedades de formatação de preenchimento para a forma ou gráfico. Somente leitura.

Dim fftFill As FillFormat
Set fftFill = shp.Fill

FormControlType Retorna o tipo de controle do Microsoft Excel. Somente leitura XlFormControl.

Dim xfcFormControlType As XlFormControl
xfcFormControlType = shp.FormControlType

Glow Retorna um objeto GlowFormat para uma forma especificada que contém as propriedades de formatação de brilho para a forma. Somente leitura.

Dim gftGlow As Office.GlowFormat
Set gftGlow = shp.Glow

GraphicStyle Retorna ou define uma constante MsoGraphicStyleIndex que representa o estilo de um gráfico SVG. Leitura/gravação.

ActiveDocument.Shapes(1).GraphicStyle = msoGraphicStylePreset22

GroupItems Retorna um objeto GroupShapes que representa as formas individuais no grupo especificado. Use o método Item do objeto GroupShapes para retornar uma única forma do grupo. Aplica-se a objetos Shape representam formas agrupadas. Somente leitura.

7Worksheets(1).Shapes(1) 
Dim gssGroupItems As GroupShapes
Set gssGroupItems = shp.GroupItems

HasChart Retorna se uma forma contém um gráfico. MsoTriState somente leitura.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = shp.HasChart

HasSmartArt Retorna se houver um diagrama de SmartArt presente na forma especificada. Somente leitura.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = shp.HasSmartArt

Height Retorna ou define um valor único que representa a altura, em pontos, do objeto.

shp.Height =

HorizontalFlip True se a forma especificada for invertida ao redor do eixo horizontal. MsoTriState somente leitura.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = shp.HorizontalFlip

Hyperlink Retorna um objeto Hyperlink que representa o hiperlink para a forma.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = shp.Hyperlink

ID Retorna um valor Longo que representa o tipo do objeto especificado.

Dim lngID As Long
lngID = shp.ID

Left Retorna ou define um valor único que representa a distância, em pontos, da borda esquerda do objeto à borda esquerda da coluna a em uma planilha ou à borda esquerda da área do gráfico (em um gráfico).

shp.Left =

Line Retorna um objeto LineFormat que contém as propriedades para a forma especificada de formatação de linha. Para uma linha, o objeto lineformat representa a própria linha; para uma forma com uma borda, o objeto lineformat representa a borda. Somente leitura.

Dim lftLine As LineFormat
Set lftLine = shp.Line

LinkFormat Retorna um objeto LinkFormat que contém propriedades de objeto OLE vinculado. Somente leitura.

Dim lftLinkFormat As LinkFormat
Set lftLinkFormat = shp.LinkFormat

LockAspectRatio True se a forma especificada mantiver suas proporções originais após o redimensionamento. False se você puder alterar a altura e a largura da forma, separadamente, ao redimensioná-la. MsoTriState de leitura/gravação.

shp.LockAspectRatio = msoTrue

Locked Retorna ou define um valor Boolean que indica se o objeto está bloqueado.

shp.Locked = True

Name Retorna ou define um valor String que representa o nome do objeto.

shp.Name =

Nodes Retorna uma coleção ShapeNodes que representa a descrição geométrica da forma especificada.

7Worksheets(1).Shapes(1) 
Dim snsNodes As ShapeNodes
Set snsNodes = shp.Nodes

OLEFormat Retorna um objeto OLEFormat que contém propriedades de objeto OLE. Somente leitura.

Dim oleOLEFormat As OLEFormat
Set oleOLEFormat = shp.OLEFormat

OnAction Retorna ou define o nome de uma macro que é executada quando o objeto especificado é escolhido. String de leitura/gravação.

shp.OnAction =

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = shp.Parent

ParentGroup Retorna um objeto Shape que representa a forma pai comum de uma forma filha ou um intervalo de formas filhas.

Dim shpParentGroup As Shape
Set shpParentGroup = shp.ParentGroup

PictureFormat Retorna um objeto PictureFormat que contém a imagem de formatação de propriedades para a forma especificada. Aplica-se a um objeto Shape que representa imagens ou objetos OLE. Somente leitura.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = shp.PictureFormat

Placement Retorna ou define um valor XlPlacement que representa a maneira como o objeto é anexado às células abaixo dele.

shp.Placement = xlFreeFloating

Reflection Retorna um objeto ReflectionFormat para uma forma especificada que contém as propriedades de formatação de reflexo da forma. Somente leitura.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = shp.Reflection

Rotation Retorna ou define a rotação da forma, em graus. Somente leitura/gravação.

shp.Rotation =

Shadow Retorna um objeto ShadowFormat somente leitura que contém propriedades de formatação de sombra para a forma especificada ou formas.

Dim sftShadow As ShadowFormat
Set sftShadow = shp.Shadow

ShapeStyle Retorna ou define um valor MsoShapeStyleIndex que representa o estilo de forma do intervalo de formas. Leitura/gravação.

shp.ShapeStyle =

SmartArt Retorna um objeto que representa o SmartArt associado à forma. Somente leitura.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = shp.SmartArt

SoftEdge Retorna um objeto SoftEdgeFormat para uma forma especificada que contém propriedades de formatação de borda suave para a forma. Somente leitura.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = shp.SoftEdge

TextEffect Retorna um objeto TextEffectFormat que contém as propriedades de formatação de efeito de texto da forma especificada. Somente leitura.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = shp.TextEffect

TextFrame Retorna um objeto TextFrame que contém as propriedades de alinhamento e ancoragem para a forma especificada. Somente leitura.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = shp.TextFrame

TextFrame2 Retorna um objeto TextFrame2 que contém a formatação de texto para a forma especificada. Somente leitura.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = shp.TextFrame2

ThreeD Retorna um objeto ThreeDFormat que contém as propriedades de formatação de efeito 3D para a forma especificada. Somente leitura.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = shp.ThreeD

Title Retorna ou define o título do texto alternativo associado à forma especificada. Leitura/gravação.

shp.Title =

Top Retorna ou define um valor único que representa a distância, em pontos, da borda superior da forma mais superior no intervalo de formas até a borda superior da planilha.

shp.Top =

Type Retorna ou define um valor MsoShapeType que representa o tipo de forma.

Dim mstType As Office.MsoShapeType
mstType = shp.Type

VerticalFlip True se a forma especificada for invertida ao redor do eixo vertical. MsoTriState somente leitura.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = shp.VerticalFlip

Vertices Retorna as coordenadas dos vértices e pontos de controle para curvas Bézier do desenho de forma livre especificado como uma série de pares de coordenadas. Você pode usar a matriz retornada por esta propriedade como um argumento para o Método AddCurve ou AddPolyline . Somente leitura .

7Worksheets(1).Shapes(1) 
Dim varVertices As Variant
varVertices = shp.Vertices

Visible Retorna ou define um valor MsoTriState que determina se o objeto está visível. Leitura/gravação.

shp.Visible =

Width Retorna ou define um valor único que representa a largura, em pontos, do objeto.

shp.Width =

ShapeRange.Adjustments Retorna um objeto Adjustments que contém valores de ajuste para todos os ajustes na forma especificada. Aplica-se a qualquer objeto ShapeRange que representa uma AutoForma, WordArt ou conector.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActiveChart.OLEObjects.ShapeRange.Adjustments

ShapeRange.AlternativeText Retorna ou define a sequência de texto descritiva alternativa para um objeto ShapeRange quando o objeto é salvo em uma página da Web. String de leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.AlternativeText =

ShapeRange.AutoShapeType Retorna ou define o tipo de forma para o objeto Shape ou ShapeRange especificado, que deve representar uma AutoForma que não seja uma linha, um desenho de forma livre ou um conector. MsoAutoShapeType de leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.AutoShapeType = msoShape16pointStar

ShapeRange.BackgroundStyle Retorna ou define o estilo do segundo plano. Leitura/gravação MsoBackgroundStyleIndex.

ActiveChart.OLEObjects.ShapeRange.BackgroundStyle =

ShapeRange.BlackWhiteMode Retorna ou define um valor que indica a maneira pela qual a forma especificada aparecerá quando a apresentação for exibida em preto e branco. Leitura/gravação MsoBlackWhiteMode.

ActiveChart.OLEObjects.ShapeRange.BlackWhiteMode = msoBlackWhiteGrayOutline

ShapeRange.Callout Retorna um objeto CalloutFormat que contém as propriedades de formatação de linha para a forma especificada. Aplica-se a objetos ShapeRange que representam textos explicativos de linha. Somente leitura.

Dim cftCallout As CalloutFormat
Set cftCallout = ActiveChart.OLEObjects.ShapeRange.Callout

ShapeRange.Chart Retorna um objeto Chart que representa o gráfico contido no intervalo de formas. Somente leitura.

Dim chrChart As Chart
Set chrChart = ActiveChart.OLEObjects.ShapeRange.Chart

ShapeRange.Child Retorna msoTrue se a forma especificada for uma forma filha ou se todas as formas em um intervalo de formas forem formas filhas de um mesmo pai. Retorna MsoFalse se a forma selecionada não for uma forma filha. Retorna msoTriStateMixed se apenas algumas das formas selecionadas são formas filhas. MsoTriState somente leitura.

Dim mtsChild As Office.MsoTriState
mtsChild = ActiveChart.OLEObjects.ShapeRange.Child

ShapeRange.ConnectionSiteCount Retorna o número de locais de conexão na forma especificada. Long somente leitura.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = ActiveChart.OLEObjects.ShapeRange.ConnectionSiteCount

ShapeRange.Connector True se a forma especificada for um conector. MsoTriState somente leitura.

Dim mtsConnector As Office.MsoTriState
mtsConnector = ActiveChart.OLEObjects.ShapeRange.Connector

ShapeRange.ConnectorFormat Retorna um objeto ConnectorFormat que contém propriedades de formatação de conector. Aplica-se a objetos ShapeRange que representam conectores. Somente leitura.

Dim cftConnectorFormat As ConnectorFormat
Set cftConnectorFormat = ActiveChart.OLEObjects.ShapeRange.ConnectorFormat

ShapeRange.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Count

ShapeRange.Decorative Define ou retorna o sinalizador decorativo para o objeto especificado. Leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.Decorative =

ShapeRange.Fill Retorna um objeto FillFormat para uma forma especificada ou um objeto ChartFillFormat para um gráfico especificado que contém propriedades de formatação de preenchimento para a forma ou gráfico. Somente leitura.

Dim fftFill As FillFormat
Set fftFill = ActiveChart.OLEObjects.ShapeRange.Fill

ShapeRange.Glow Retorna um objeto GlowFormat para um intervalo de formas especificado que contém as propriedades de formatação de brilho para o intervalo de formas. Somente leitura.

Dim gftGlow As Office.GlowFormat
Set gftGlow = ActiveChart.OLEObjects.ShapeRange.Glow

ShapeRange.GraphicStyle Retorna ou define uma constante MsoGraphicStyleIndex que representa o estilo de um intervalo de formas contendo um ou mais gráficos SVG. Leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.GraphicStyle =

ShapeRange.GroupItems Retorna um objeto GroupShapes que representa as formas individuais no grupo especificado. Use o método Item do objeto GroupShapes para retornar uma única forma do grupo. Aplica-se a objetos ShapeRange representam formas agrupadas. Somente leitura.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveChart.OLEObjects.ShapeRange.GroupItems

ShapeRange.HasChart Retorna se um intervalo de formas contém um gráfico. MsoTriState somente leitura.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveChart.OLEObjects.ShapeRange.HasChart

ShapeRange.Height Retorna ou define um valor único que representa a altura, em pontos, do objeto.

ActiveChart.OLEObjects.ShapeRange.Height =

ShapeRange.HorizontalFlip True se a forma especificada for invertida ao redor do eixo horizontal. MsoTriState somente leitura.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActiveChart.OLEObjects.ShapeRange.HorizontalFlip

ShapeRange.ID Retorna um valor Long que representa o tipo do objeto especificado.

Dim lngID As Long
lngID = ActiveChart.OLEObjects.ShapeRange.ID

ShapeRange.Left Retorna ou define um valor único que representa a distância, em pontos, da borda esquerda do objeto à borda esquerda da coluna a em uma planilha ou à borda esquerda da área do gráfico (em um gráfico).

ActiveChart.OLEObjects.ShapeRange.Left =

ShapeRange.Line Retorna um objeto LineFormat que contém as propriedades para a forma especificada de formatação de linha. Para uma linha, o objeto lineformat representa a própria linha; para uma forma com uma borda, o objeto lineformat representa a borda. Somente leitura.

Dim lftLine As LineFormat
Set lftLine = ActiveChart.OLEObjects.ShapeRange.Line

ShapeRange.LockAspectRatio True se a forma especificada mantiver suas proporções originais após o redimensionamento. False se você puder alterar a altura e a largura da forma, separadamente, ao redimensioná-la. MsoTriState de leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.LockAspectRatio = msoTrue

ShapeRange.Name Retorna ou define um valor String que representa o nome do objeto.

ActiveChart.OLEObjects.ShapeRange.Name =

ShapeRange.Nodes Retorna uma coleção ShapeNodes que representa a descrição geométrica da forma especificada.

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveChart.OLEObjects.ShapeRange.Nodes

ShapeRange.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Parent

ShapeRange.ParentGroup Retorna um objeto Shape que representa a forma pai comum de uma forma filha ou um intervalo de formas filhas.

Dim shpParentGroup As Shape
Set shpParentGroup = ActiveChart.OLEObjects.ShapeRange.ParentGroup

ShapeRange.PictureFormat Retorna um objeto PictureFormat que contém a imagem de formatação de propriedades para a forma especificada. Aplica-se a um objeto ShapeRange que representa imagens ou objetos OLE. Somente leitura.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = ActiveChart.OLEObjects.ShapeRange.PictureFormat

ShapeRange.Reflection Retorna um objeto ReflectionFormat para um intervalo de formas especificado que contém as propriedades de formatação de reflexo para o intervalo de formas. Somente leitura.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = ActiveChart.OLEObjects.ShapeRange.Reflection

ShapeRange.Rotation Retorna ou define a rotação da forma, em graus. Somente leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.Rotation =

ShapeRange.Shadow Retorna um objeto ShadowFormat somente leitura que contém propriedades de formatação de sombra para a forma especificada ou formas.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveChart.OLEObjects.ShapeRange.Shadow

ShapeRange.ShapeStyle Retorna ou define um valor MsoShapeStyleIndex que representa o estilo de forma do intervalo de formas. Leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.ShapeStyle =

ShapeRange.SoftEdge Retorna um objeto SoftEdgeFormat para um intervalo de formas especificado que contém as propriedades de formatação de borda suave para o intervalo de formas. Somente leitura.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = ActiveChart.OLEObjects.ShapeRange.SoftEdge

ShapeRange.TextEffect Retorna um objeto TextEffectFormat que contém as propriedades de formatação de efeito de texto da forma especificada. Somente leitura.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActiveChart.OLEObjects.ShapeRange.TextEffect

ShapeRange.TextFrame Retorna um objeto TextFrame que contém as propriedades de alinhamento e ancoragem para a forma especificada. Somente leitura.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveChart.OLEObjects.ShapeRange.TextFrame

ShapeRange.TextFrame2 Retorna um objeto TextFrame2 que contém formatação de texto para o intervalo de formas especificado. Somente leitura.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveChart.OLEObjects.ShapeRange.TextFrame2

ShapeRange.ThreeD Retorna um objeto ThreeDFormat que contém as propriedades de formatação de efeito 3D para a forma especificada. Somente leitura.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveChart.OLEObjects.ShapeRange.ThreeD

ShapeRange.Title Retorna ou define o título do texto alternativo associado ao intervalo de formas especificado. Leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.Title =

ShapeRange.Top Retorna ou define um valor único que representa a distância, em pontos, da borda superior da forma mais superior no intervalo de formas até a borda superior da planilha.

ActiveChart.OLEObjects.ShapeRange.Top =

ShapeRange.Type Retorna um valor MsoShapeType que representa o tipo de forma.

Dim mstType As Office.MsoShapeType
mstType = ActiveChart.OLEObjects.ShapeRange.Type

ShapeRange.VerticalFlip True se a forma especificada for invertida ao redor do eixo vertical. MsoTriState somente leitura.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActiveChart.OLEObjects.ShapeRange.VerticalFlip

ShapeRange.Vertices Retorna as coordenadas dos vértices e pontos de controle para curvas Bézier do desenho de forma livre especificado como uma série de pares de coordenadas. Você pode usar a matriz retornada por esta propriedade como um argumento para o Método AddCurve ou AddPolyline . Somente leitura .

Dim varVertices As Variant
varVertices = ActiveChart.OLEObjects.ShapeRange.Vertices

ShapeRange.Visible Retorna ou define um valor MsoTriState que determina se o objeto está visível. Leitura/gravação.

ActiveChart.OLEObjects.ShapeRange.Visible =

ShapeRange.Width Retorna ou define um valor único que representa a largura, em pontos, do objeto.

ActiveChart.OLEObjects.ShapeRange.Width =

Shapes.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveChart.Shapes.Count

Shapes.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveChart.Shapes.Parent

Shapes.Range Retorna um objeto ShapeRange que representa um subconjunto das formas em uma coleção Shapes.

Dim lngIndex() As Long: lngIndex() = 
Dim sreRange As ShapeRange
Set sreRange = ActiveChart.Shapes.Range(Index:=lngIndex())