Clase Shape (Excel VBA)

La clase Shape representa un objeto de la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen.

Los principales procedimientos de la clase Shape son 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 y Shapes.AddTextEffect

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Shape en una colección.

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

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Cell with its procedures BottomRightCell y TopLeftCell
Copy with its procedures Copy y CopyPicture
3D with its procedures Model3D y ShapeRange.Model3D
Sort/Order with its procedures ZOrder, ZOrderPosition, ShapeRange.ZOrder y 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 y Shapes.AddTextEffect

Métodos

Los principales métodos de la clase Shape son

Delete - Elimina el objeto.

shp.Delete

Select - Selecciona el objeto.

shp.Select

ShapeRange.Delete - Elimina el objeto.

ActiveChart.OLEObjects.ShapeRange.Delete

ShapeRange.Select - Selecciona el objeto.

ActiveChart.OLEObjects.ShapeRange.Select

Otros Métodos

GroupShapes.Item - Devuelve un solo objeto de una colección.

Apply - expresión. Aplicar

Cut - Corta el objeto y lo copia en el Portapapeles.

Duplicate - Duplica el objeto y devuelve una referencia a la nueva copia.

Flip - Voltea la forma especificada alrededor de su eje horizontal o vertical.

IncrementLeft - Mueve horizontalmente la forma especificada el número de puntosespecificado.

IncrementRotation - Cambia el giro de la forma alrededor del eje Z el número especificado de grados. Utilice la propiedad Rotation para establecer el giro absoluto de la forma.

IncrementTop - Mueve verticalmente la forma especificada el número de puntosespecificado.

PickUp - Copia el formato de la forma especificada. Utilice el método Apply para aplicar el formato copiado a otra forma.

RerouteConnections - Este método redistribuye todos los conectores adjuntos a la forma especificada; Si la forma especificada es un conector, se vuelve a redistribuir.

ScaleHeight - Cambia el alto de la forma en un factor especificado. Para imágenes y objetos OLE, se puede indicar si se desea cambiar el tamaño de la forma con relación al original o al tamaño actual. El tamaño de las formas que no son imágenes y objetos OLE siempre se cambia con relación al alto actual.

ScaleWidth - Cambia el ancho de la forma en un factor especificado. Para imágenes y objetos OLE, se puede indicar si se desea cambiar el tamaño de la forma con relación al original o al tamaño actual. El tamaño de las formas que no son imágenes y objetos OLE siempre se cambia con relación al ancho actual.

SetShapesDefaultProperties - Convierte el formato de la forma especificada en el formato predeterminado de la forma.

Ungroup - Desagrupa las formas agrupadas en la forma especificada o intervalo de formas. Separa las imágenes y objetos OLE de la forma o rango especificados.

ShapeRange.Align - Alinea las formas del intervalo especificado.

ShapeRange.Apply - expresión. Aplicar

ShapeRange.Distribute - Distribuye horizontal o verticalmente las formas del rango de formas especificado.

ShapeRange.Duplicate - Duplica el objeto y devuelve una referencia a la nueva copia.

ShapeRange.Flip - Voltea la forma especificada alrededor de su eje horizontal o vertical.

ShapeRange.Group - Agrupa las formas del rango especificado.

ShapeRange.IncrementLeft - Mueve horizontalmente la forma especificada el número de puntosespecificado.

ShapeRange.IncrementRotation - Cambia el giro de la forma alrededor del eje Z el número especificado de grados. Utilice la propiedad Rotation para establecer el giro absoluto de la forma.

ShapeRange.IncrementTop - Mueve verticalmente la forma especificada el número de puntosespecificado.

ShapeRange.Item - Devuelve un solo objeto de una colección.

ShapeRange.PickUp - Copia el formato de la forma especificada. Utilice el método Apply para aplicar el formato copiado a otra forma.

ShapeRange.Regroup - Vuelve a agrupar el grupo al que pertenecía anteriormente el intervalo de formas especificado. Devuelve las formas reagrupadas como un único objeto Shape .

ShapeRange.RerouteConnections - Este método redistribuye todos los conectores adjuntos a la forma especificada; Si la forma especificada es un conector, se vuelve a redistribuir.

ShapeRange.ScaleHeight - Cambia el alto de la forma en un factor especificado. Para imágenes y objetos OLE, se puede indicar si se desea cambiar el tamaño de la forma con relación al original o al tamaño actual. El tamaño de las formas que no son imágenes y objetos OLE siempre se cambia con relación al alto actual.

ShapeRange.ScaleWidth - Cambia el ancho de la forma en un factor especificado. Para imágenes y objetos OLE, se puede indicar si se desea cambiar el tamaño de la forma con relación al original o al tamaño actual. El tamaño de las formas que no son imágenes y objetos OLE siempre se cambia con relación al ancho actual.

ShapeRange.SetShapesDefaultProperties - Convierte el formato de la forma especificada en el formato predeterminado de la forma.

ShapeRange.Ungroup - Desagrupa las formas agrupadas en la forma especificada o intervalo de formas. Separa las imágenes y objetos OLE de la forma o rango especificados.

Shapes.BuildFreeform - Genera un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre mientras se está generando.

Shapes.Item - Devuelve un solo objeto de una colección.

Shapes.SelectAll - Selecciona todas las formas de la colección Shapes especificada.

Propiedades

GroupShapes.Count Devuelve un valor Long que representa el número de objetos de la colección.

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

GroupShapes.Parent Devuelve el objeto primario del objeto especificado.

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

GroupShapes.Range Devuelve un objeto ShapeRange que representa un subconjunto de las formas de una colección Shapes.

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

Adjustments Devuelve un objeto Adjustments que contiene los valores de ajuste para todos los ajustes de la forma especificada. Se aplica a cualquier objeto Shape que representa una autoforma, WordArt o conector.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = shp.Adjustments

AlternativeText Devuelve o establece la cadena de texto descriptivo (alternativa) para un objeto Shape cuando el objeto se guarda en una página web. String de lectura y escritura.

shp.AlternativeText =

AutoShapeType Devuelve o establece el tipo de forma de los objetos Shape o ShapeRange especificados, que deben representar una autoforma diferente de una línea, un dibujo de forma libre o un conector. MsoAutoShapeType de lectura y escritura.

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

BackgroundStyle Devuelve o establece el estilo del fondo. MsoBackgroundStyleIndex de lectura y escritura.

shp.BackgroundStyle =

BlackWhiteMode Devuelve o establece un valor que indica cómo aparece la forma especificada cuando la presentación se visualiza en modo blanco y negro. MsoBlackWhiteMode de lectura y escritura.

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

Callout Se aplica a un objeto Shape que representa llamadas de línea. Solo lectura.

Dim cftCallout As CalloutFormat
Set cftCallout = shp.Callout

Chart Devuelve un objeto Chart que representa el gráfico contenido en la forma. Solo lectura.

Dim chrChart As Chart
Set chrChart = shp.Chart

Child Devuelve msoTrue si la forma especificada es una forma secundaria o si todas las formas del rango de formas son secundarias de la misma forma primaria. Devuelve msoFalse si la forma seleccionada no es una forma secundaria. Devuelve msoTriStateMixed si sólo algunas de las formas seleccionadas son formas secundarias. MsoTriState de sólo lectura.

Dim mtsChild As Office.MsoTriState
mtsChild = shp.Child

ConnectionSiteCount Devuelve el número de sitios de conexión de la forma especificada. Long de sólo lectura.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = shp.ConnectionSiteCount

Connector Es True si la forma especificada es un conector. MsoTriState de sólo lectura.

Dim mtsConnector As Office.MsoTriState
mtsConnector = shp.Connector

ConnectorFormat Devuelve un objeto ConnectorFormat que contiene propiedades de formato del conector. Se aplica a un objeto Shape que representa conectores. Solo lectura.

Dim cftConnectorFormat As ConnectorFormat
Set cftConnectorFormat = shp.ConnectorFormat

ControlFormat Devuelve un objeto ControlFormat que contiene las propiedades de un control de Microsoft Excel. Solo lectura.

Dim cftControlFormat As ControlFormat
Set cftControlFormat = shp.ControlFormat

Decorative Establece o devuelve la marca decorativa del objeto especificado. Lectura y escritura.

shp.Decorative =

Fill Devuelve un objeto FillFormat para una forma especificada o un objeto ChartFillFormat de un gráfico especificado que contiene las propiedades de formato de relleno de la forma o del gráfico. Solo lectura.

Dim fftFill As FillFormat
Set fftFill = shp.Fill

FormControlType Devuelve el tipo de control de Microsoft Excel. XlFormControl de solo lectura.

Dim xfcFormControlType As XlFormControl
xfcFormControlType = shp.FormControlType

Glow Devuelve un objeto GlowFormat para una forma especificada que contiene propiedades de formato con resplandor para la forma. Solo lectura.

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

GraphicStyle Devuelve o establece una constante MsoGraphicStyleIndex que representa el estilo de un gráfico SVG. Lectura y escritura.

ActiveDocument.Shapes(1).GraphicStyle = msoGraphicStylePreset22

GroupItems Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Se aplica a los objetos Shape que representan formas agrupadas. Solo lectura.

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

HasChart Devuelve si una forma contiene un gráfico. MsoTriState de sólo lectura.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = shp.HasChart

HasSmartArt Devuelve si hay un diagrama SmartArt presente en la forma especificada. Solo lectura.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = shp.HasSmartArt

Height Devuelve o establece un valor de tipo Single que representa el alto, en puntos, del objeto.

shp.Height =

HorizontalFlip Es True si la forma especificada se voltea alrededor del eje horizontal. MsoTriState de sólo lectura.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = shp.HorizontalFlip

Hyperlink Devuelve un objeto HYPERLINK que representa el hipervínculo de la forma.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = shp.Hyperlink

ID Devuelve un valor de tipo Long que representa el tipo del objeto especificado.

Dim lngID As Long
lngID = shp.ID

Left Devuelve o establece un valor de tipo Single que representa la distancia, en puntos, desde el borde izquierdo del objeto al borde izquierdo de la columna a (en una hoja de cálculo) o al borde izquierdo del área del gráfico (en un gráfico).

shp.Left =

Line Devuelve un objeto LineFormat que contiene las propiedades de la forma especificada el formato de línea. (Para una línea, el objeto LineFormat representa la línea en sí; para una forma con borde, el objeto LineFormat representa el borde). Solo lectura.

Dim lftLine As LineFormat
Set lftLine = shp.Line

LinkFormat Devuelve un objeto LinkFormat que contiene las propiedades de un objeto OLE vinculado. Solo lectura.

Dim lftLinkFormat As LinkFormat
Set lftLinkFormat = shp.LinkFormat

LockAspectRatio Es True si la forma especificada mantiene sus proporciones originales al ajustar su tamaño. Es False si el alto y el ancho de la forma se pueden cambiar independientemente al ajustar su tamaño. MsoTriState de lectura y escritura.

shp.LockAspectRatio = msoTrue

Locked Devuelve o establece un valor de tipo Boolean que indica si el objeto está bloqueado.

shp.Locked = True

Name Devuelve o establece un valor de tipo String que representa el nombre del objeto.

shp.Name =

Nodes Devuelve una colección ShapeNodes que representa la descripción geométrica de la forma especificada.

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

OLEFormat Devuelve un objeto OLEFormat que contiene las propiedades de un objeto OLE. Solo lectura.

Dim oleOLEFormat As OLEFormat
Set oleOLEFormat = shp.OLEFormat

OnAction Devuelve o establece el nombre de una macro que se ejecuta cuando se elige el objeto especificado. String de lectura y escritura.

shp.OnAction =

Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

Dim objParent As Object
Set objParent = shp.Parent

ParentGroup Devuelve un objeto Shape que representa la forma primaria común de una forma secundaria o un intervalo de formas secundarias.

Dim shpParentGroup As Shape
Set shpParentGroup = shp.ParentGroup

PictureFormat Devuelve un objeto PictureFormat que contiene las propiedades de la forma especificada el formato de imagen. Se aplica a un objeto Shape que representa imágenes u objetos OLE. Solo lectura.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = shp.PictureFormat

Placement Devuelve o establece un valor XlPlacement que representa la manera en que el objeto se adjunta a las celdas que están debajo de él.

shp.Placement = xlFreeFloating

Reflection Devuelve un objeto ReflectionFormat para una forma especificada que contiene las propiedades de formato de reflejo de la forma. Solo lectura.

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

Rotation Devuelve o establece el giro de la forma, en grados. Single de lectura y escritura.

shp.Rotation =

Shadow Devuelve un objeto ShadowFormat de sólo lectura que contiene las propiedades de formato de sombra de la forma o formas especificadas.

Dim sftShadow As ShadowFormat
Set sftShadow = shp.Shadow

ShapeStyle Devuelve o establece un valor de MsoShapeStyleIndex que representa el estilo de forma del intervalo de formas. Lectura y escritura.

shp.ShapeStyle =

SmartArt Devuelve un objeto Object que representa el SmartArt asociado con la forma. Solo lectura.

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

SoftEdge Devuelve un objeto SoftEdgeFormat para una forma especificada que contiene propiedades de formato de borde suave para la forma. Solo lectura.

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

TextEffect Devuelve un objeto TextEffectFormat que contiene propiedades de formato de efecto de texto de la forma especificada. Solo lectura.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = shp.TextEffect

TextFrame Devuelve un objeto TextFrame que contiene las propiedades de alineación y delimitación de la forma especificada. Solo lectura.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = shp.TextFrame

TextFrame2 Devuelve un objeto TextFrame2 que contiene el formato de texto de la forma especificada. Solo lectura.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = shp.TextFrame2

ThreeD Devuelve un objeto ThreeDFormat que contiene las propiedades de formato de efecto 3D de la forma especificada. Solo lectura.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = shp.ThreeD

Title Devuelve o establece el título del texto alternativo asociado a la forma especificada. Lectura y escritura.

shp.Title =

Top Devuelve o establece un valor de tipo Single que representa la distancia, en puntos, desde el borde superior de la forma superior del rango de formas hasta el borde superior de la hoja de cálculo.

shp.Top =

Type Devuelve o establece un valor MsoShapeType que representa el tipo de forma.

Dim mstType As Office.MsoShapeType
mstType = shp.Type

VerticalFlip True si la forma especificada está volteada alrededor del eje vertical. MsoTriState de sólo lectura.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = shp.VerticalFlip

Vertices Devuelve las coordenadas de los vértices del dibujo de forma libre especificado, y los puntos de control de las curvas Bézier, como una serie de pares de coordenadas. Puede usar la matriz devuelta por esta propiedad como un argumento para el método AddCurve o AddPolyLine . Variant de solo lectura.

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

Visible Devuelve o establece un valor MsoTriState que determina si el objeto es visible. Lectura y escritura.

shp.Visible =

Width Devuelve o establece un valor de tipo Single que representa el ancho, en puntos, del objeto.

shp.Width =

ShapeRange.Adjustments Devuelve un objeto Adjustments que contiene los valores de ajuste para todos los ajustes de la forma especificada. Se aplica a cualquier objeto ShapeRange que representa una autoforma, WordArt o conector.

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

ShapeRange.AlternativeText Devuelve o establece la cadena de texto descriptivo (alternativa) para un objeto ShapeRange cuando el objeto se guarda en una página web. String de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.AlternativeText =

ShapeRange.AutoShapeType Devuelve o establece el tipo de forma para el objeto Shape o ShapeRange especificado, que debe representar una autoforma que no sea una línea, un dibujo de forma libre o un conector. MsoAutoShapeType de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.AutoShapeType = msoShape16pointStar

ShapeRange.BackgroundStyle Devuelve o establece el estilo del fondo. MsoBackgroundStyleIndex de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.BackgroundStyle =

ShapeRange.BlackWhiteMode Devuelve o establece un valor que indica cómo aparece la forma especificada cuando la presentación se visualiza en modo blanco y negro. MsoBlackWhiteMode de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.BlackWhiteMode = msoBlackWhiteGrayOutline

ShapeRange.Callout Se aplica a los objetos ShapeRange que representan llamadas de línea. Solo lectura.

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

ShapeRange.Chart Devuelve un objeto Chart que representa el gráfico contenido en el intervalo de formas. Solo lectura.

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

ShapeRange.Child Devuelve msoTrue si la forma especificada es una forma secundaria o si todas las formas del rango de formas son secundarias de la misma forma primaria. Devuelve msoFalse si la forma seleccionada no es una forma secundaria. Devuelve msoTriStateMixed si sólo algunas de las formas seleccionadas son formas secundarias. MsoTriState de sólo lectura.

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

ShapeRange.ConnectionSiteCount Devuelve el número de sitios de conexión de la forma especificada. Long de sólo lectura.

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

ShapeRange.Connector Es True si la forma especificada es un conector. MsoTriState de sólo lectura.

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

ShapeRange.ConnectorFormat Devuelve un objeto ConnectorFormat que contiene propiedades de formato del conector. Se aplica a los objetos ShapeRange que representan conectores. Solo lectura.

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

ShapeRange.Count Devuelve un valor Long que representa el número de objetos de la colección.

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

ShapeRange.Decorative Establece o devuelve la marca decorativa del objeto especificado. Lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.Decorative =

ShapeRange.Fill Devuelve un objeto FillFormat para una forma especificada o un objeto ChartFillFormat de un gráfico especificado que contiene las propiedades de formato de relleno de la forma o del gráfico. Solo lectura.

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

ShapeRange.Glow Devuelve un objeto GlowFormat para un rango de formas especificado que contiene propiedades de formato con resplandor para el intervalo de formas. Solo lectura.

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

ShapeRange.GraphicStyle Devuelve o establece una constante MsoGraphicStyleIndex que representa el estilo de un intervalo de formas que contiene uno o varios gráficos SVG. Lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.GraphicStyle =

ShapeRange.GroupItems Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Se aplica a los objetos ShapeRange que representan formas agrupadas. Solo lectura.

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

ShapeRange.HasChart Devuelve si un rango de forma contiene un gráfico. MsoTriState de sólo lectura.

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

ShapeRange.Height Devuelve o establece un valor de tipo Single que representa el alto, en puntos, del objeto.

ActiveChart.OLEObjects.ShapeRange.Height =

ShapeRange.HorizontalFlip Es True si la forma especificada se voltea alrededor del eje horizontal. MsoTriState de sólo lectura.

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

ShapeRange.ID Devuelve un valor de tipo Long que representa el tipo del objeto especificado.

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

ShapeRange.Left Devuelve o establece un valor de tipo Single que representa la distancia, en puntos, desde el borde izquierdo del objeto al borde izquierdo de la columna a (en una hoja de cálculo) o al borde izquierdo del área del gráfico (en un gráfico).

ActiveChart.OLEObjects.ShapeRange.Left =

ShapeRange.Line Devuelve un objeto LineFormat que contiene las propiedades de la forma especificada el formato de línea. (Para una línea, el objeto LineFormat representa la línea en sí; para una forma con borde, el objeto LineFormat representa el borde). Solo lectura.

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

ShapeRange.LockAspectRatio Es True si la forma especificada mantiene sus proporciones originales al ajustar su tamaño. Es False si el alto y el ancho de la forma se pueden cambiar independientemente al ajustar su tamaño. MsoTriState de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.LockAspectRatio = msoTrue

ShapeRange.Name Devuelve o establece un valor de tipo String que representa el nombre del objeto.

ActiveChart.OLEObjects.ShapeRange.Name =

ShapeRange.Nodes Devuelve una colección ShapeNodes que representa la descripción geométrica de la forma especificada.

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

ShapeRange.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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

ShapeRange.ParentGroup Devuelve un objeto Shape que representa la forma primaria común de una forma secundaria o un intervalo de formas secundarias.

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

ShapeRange.PictureFormat Devuelve un objeto PictureFormat que contiene las propiedades de la forma especificada el formato de imagen. Se aplica a un objeto ShapeRange que representa imágenes u objetos OLE. Solo lectura.

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

ShapeRange.Reflection Devuelve un objeto ReflectionFormat para un intervalo de formas especificado que contiene las propiedades de formato de reflejo del intervalo de formas. Solo lectura.

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

ShapeRange.Rotation Devuelve o establece el giro de la forma, en grados. Single de lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.Rotation =

ShapeRange.Shadow Devuelve un objeto ShadowFormat de sólo lectura que contiene las propiedades de formato de sombra de la forma o formas especificadas.

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

ShapeRange.ShapeStyle Devuelve o establece un valor de MsoShapeStyleIndex que representa el estilo de forma del intervalo de formas. Lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.ShapeStyle =

ShapeRange.SoftEdge Devuelve un objeto SoftEdgeFormat para un intervalo de formas especificado que contiene las propiedades de formato de borde suave del intervalo de formas. Solo lectura.

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

ShapeRange.TextEffect Devuelve un objeto TextEffectFormat que contiene propiedades de formato de efecto de texto de la forma especificada. Solo lectura.

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

ShapeRange.TextFrame Devuelve un objeto TextFrame que contiene las propiedades de alineación y delimitación de la forma especificada. Solo lectura.

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

ShapeRange.TextFrame2 Devuelve un objeto TextFrame2 que contiene formato de texto para el intervalo de formas especificado. Solo lectura.

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

ShapeRange.ThreeD Devuelve un objeto ThreeDFormat que contiene las propiedades de formato de efecto 3D de la forma especificada. Solo lectura.

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

ShapeRange.Title Devuelve o establece el título del texto alternativo asociado con el intervalo de formas especificado. Lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.Title =

ShapeRange.Top Devuelve o establece un valor de tipo Single que representa la distancia, en puntos, desde el borde superior de la forma superior del rango de formas hasta el borde superior de la hoja de cálculo.

ActiveChart.OLEObjects.ShapeRange.Top =

ShapeRange.Type Devuelve un valor MsoShapeType que representa el tipo de forma.

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

ShapeRange.VerticalFlip True si la forma especificada está volteada alrededor del eje vertical. MsoTriState de sólo lectura.

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

ShapeRange.Vertices Devuelve las coordenadas de los vértices del dibujo de forma libre especificado, y los puntos de control de las curvas Bézier, como una serie de pares de coordenadas. Puede usar la matriz devuelta por esta propiedad como un argumento para el método AddCurve o AddPolyLine . Variant de solo lectura.

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

ShapeRange.Visible Devuelve o establece un valor MsoTriState que determina si el objeto es visible. Lectura y escritura.

ActiveChart.OLEObjects.ShapeRange.Visible =

ShapeRange.Width Devuelve o establece un valor de tipo Single que representa el ancho, en puntos, del objeto.

ActiveChart.OLEObjects.ShapeRange.Width =

Shapes.Count Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveChart.Shapes.Count

Shapes.Parent Devuelve el objeto primario del objeto especificado. Solo lectura.

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

Shapes.Range Devuelve un objeto ShapeRange que representa un subconjunto de las formas de una colección Shapes.

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