Clase Shape (Word VBA)

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

Los principales procedimientos de la clase Shape son CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Delete, Select, ShapeRange.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddCanvas, Shapes.AddChart2, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect y Shapes.AddWebVideo

Set

Para usar una variable de clase Shape, primero debe ser instanciado, por ejemplo

Dim shp as Shape
Set shp = ActiveDocument.Background

Los siguientes procedimientos se pueden usar para establecer variables de clase Shape : CanvasItems, ShapeRange.CanvasItems, InlineShape.GroupItems, GroupItems, ShapeRange.GroupItems, CanvasShapes.Item, CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Document.Background, FreeformBuilder.ConvertToShape, GroupShapes.Item, Hyperlink.Shape, InlineShape.ConvertToShape, Duplicate, ParentGroup, ShapeRange.Item, ShapeRange.ParentGroup, ShapeRange.Group, Shapes.Item, Shapes.AddCallout, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddTextbox, Shapes.AddTextEffect, Shapes.Add3DModel, Shapes.AddChart2, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddSmartArt, Shapes.AddWebVideo, Shapes.AddCanvas, TextFrame.Parent, Window.RangeFromPoint, CanvasShapes.Range, GroupShapes.Range, Range.ShapeRange, Selection.ShapeRange, Selection.ChildShapeRange, Ungroup, ShapeRange.Ungroup, ShapeRange.Duplicate, Shapes.Range, Chart.Shapes, Document.Shapes y HeaderFooter.Shapes

For Each

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

Dim shpCanvasItem As Shape
For Each shpCanvasItem In CanvasItems
	
Next shpCanvasItem

Temas

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

Add with its procedures CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddCanvas, Shapes.AddChart2, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect y Shapes.AddWebVideo
Format with its procedures BackgroundStyle, GraphicStyle, HeightRelative, LayoutInCell, LinkFormat, OLEFormat, ScaleHeight, ScaleWidth, ShapeStyle, Visible, WidthRelative, WrapFormat, ShapeRange.BackgroundStyle, ShapeRange.GraphicStyle, ShapeRange.HeightRelative, ShapeRange.LayoutInCell, ShapeRange.ScaleHeight, ShapeRange.ScaleWidth, ShapeRange.ShapeStyle, ShapeRange.Visible, ShapeRange.WidthRelative y ShapeRange.WrapFormat
Sort/Order with its procedures ZOrder, ZOrderPosition, ShapeRange.ZOrder y ShapeRange.ZOrderPosition

Métodos

Los principales métodos de la clase Shape son

Delete - Elimina el nodo de forma especificado.

ActiveDocument.Background.Delete

Select - Selecciona la forma especificada.

ActiveDocument.Background.Select

ShapeRange.Delete - Elimina el intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
sre.Delete

ShapeRange.Select - Selecciona el intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
sre.Select

Otros Métodos

CanvasShapes.BuildFreeform - Genera un objeto de forma libre.

Dim fbrBuildFreeform As FreeformBuilder
Set fbrBuildFreeform = ActiveDocument.Background.CanvasItems.BuildFreeform(EditingType:=msoEditingAuto, X1:=, Y1:=)

ShapeRange.Align - Alinea las formas del intervalo especificado.

Dim lngRelativeTo As Long: lngRelativeTo = 
Dim sre As ShapeRange: Set sre =  
sre.Align Align:=msoAlignLefts, RelativeTo:=lngRelativeTo

ShapeRange.Distribute - Distribuye uniformemente las formas del intervalo especificado.

Dim lngRelativeTo As Long: lngRelativeTo = 
Dim sre As ShapeRange: Set sre =  
sre.Distribute Distribute:=msoDistributeHorizontally, RelativeTo:=lngRelativeTo

Shapes.BuildFreeform - Genera un objeto de forma libre.

Dim fbrBuildFreeform As FreeformBuilder
Set fbrBuildFreeform = Selection.HeaderFooter.Shapes.BuildFreeform(EditingType:=msoEditingAuto, X1:=, Y1:=)

Propiedades

CanvasShapes.Count Devuelve un Long que representa el número de formas de lienzo de la colección especificada.

Dim lngCount As Long
lngCount = ActiveDocument.Background.CanvasItems.Count

CanvasShapes.Parent Devuelve un objeto Object que representa el objeto primario del objeto CanvasShapes especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Background.CanvasItems.Parent

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

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

GroupShapes.Parent Devuelve un objeto Object que representa el objeto primario del objeto GroupShapes especificado.

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

Adjustments Devuelve un objeto Adjustments que contiene los valores de ajuste de todos los ajustes del objeto Shape especificado que representa una Autoforma o WordArt.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActiveDocument.Background.Adjustments

AlternativeText Devuelve o establece el texto alternativo asociado con una forma en una página web.

ActiveDocument.Background.AlternativeText =

Anchor Devuelve un objeto Range que representa el intervalo de fijación de la forma especificada o intervalo de formas.

Dim rngAnchor As Range
Set rngAnchor = ActiveDocument.Background.Anchor

AutoShapeType Devuelve o establece el tipo de forma para el objeto Shape especificado, que debe representar una autoforma que no sea una línea o dibujo de forma libre.

ActiveDocument.Background.AutoShapeType =

Callout Devuelve un objeto CalloutFormat que contiene las propiedades del formato de llamada de la forma especificada.

Dim cftCallout As CalloutFormat
Set cftCallout = ActiveDocument.Background.Callout

CanvasItems Devuelve un objeto CanvasShapes que representa una colección de formas en un lienzo de dibujo.

Dim cssCanvasItems As CanvasShapes
Set cssCanvasItems = ActiveDocument.Background.CanvasItems

Chart Devuelve un objeto Chart que representa un gráfico dentro de la colección de formas de un documento.

Dim chrChart As Chart
Set chrChart = ActiveDocument.Background.Chart

Child True si la forma es una forma secundaria o si todas las formas en un intervalo de formas son formas secundarias de la misma forma primaria.

Dim mtsChild As Office.MsoTriState
mtsChild = ActiveDocument.Background.Child

Decorative Establece o devuelve la marca decorativa del objeto especificado.

ActiveDocument.Background.Decorative =

Fill Devuelve un objeto FillFormat que contiene las propiedades de formato de relleno de la forma especificada.

Dim fftFill As FillFormat
Set fftFill = ActiveDocument.Background.Fill

Glow Devuelve un objeto GlowFormat que muestra el formato iluminado de una forma.

Dim gftGlow As GlowFormat
Set gftGlow = ActiveDocument.Background.Glow

GroupItems Devuelve un objeto GroupShapes que representa las formas individuales del grupo especificado.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Background.GroupItems

HasChart True si la forma especificada tiene un gráfico.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveDocument.Background.HasChart

HasSmartArt Devuelve true si hay un diagrama de SmartArt presente en la forma.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveDocument.Background.HasSmartArt

Height Devuelve o establece el alto (en puntos) de la forma especificada.

ActiveDocument.Background.Height =

HorizontalFlip Indica que una forma se ha volteado horizontalmente.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActiveDocument.Background.HorizontalFlip

Hyperlink Devuelve un objeto HYPERLINK que representa el hipervínculo asociado a un objeto Shape .

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActiveDocument.Background.Hyperlink

ID Devuelve el tipo de identificación de la forma especificada.

Dim lngID As Long
lngID = ActiveDocument.Background.ID

Left Devuelve o establece un valor Single que representa la posición horizontal, medida en puntos, de la forma especificada o intervalo de formas.

ActiveDocument.Background.Left =

LeftRelative Devuelve o establece un valor Single que representa la posición izquierda relativa de una forma.

ActiveDocument.Background.LeftRelative =

Line Devuelve un objeto LineFormat que contiene las propiedades de formato de línea de la forma especificada.

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Background.Line

LockAnchor True si el delimitador de un objeto Shape está bloqueado para el intervalo de delimitación.

ActiveDocument.Background.LockAnchor =

LockAspectRatio MsoTrue si la forma especificada mantiene sus proporciones originales cuando se cambia el tamaño.

ActiveDocument.Background.LockAspectRatio =

Model3D Devuelve un objeto Model3DFormat que contiene propiedades Model3D.

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Background.Model3D

Name Devuelve o establece el nombre del objeto especificado.

ActiveDocument.Background.Name =

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

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveDocument.Background.Nodes

Parent Devuelve un objeto Object que representa el objeto primario del objeto Shape especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Background.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 = ActiveDocument.Background.ParentGroup

PictureFormat Devuelve un objeto PictureFormat que contiene las propiedades de formato de imagen para el objeto especificado.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = ActiveDocument.Background.PictureFormat

Reflection Devuelve un objeto ReflectionFormat que representa el formato de reflejo de una forma.

Dim rftReflection As ReflectionFormat
Set rftReflection = ActiveDocument.Background.Reflection

RelativeHorizontalPosition Especifica la posición horizontal relativa de una forma.

ActiveDocument.Background.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter

RelativeHorizontalSize Devuelve o establece una constante WdRelativeVerticalSize que representa el objeto respecto al que es relativo un intervalo de formas.

ActiveDocument.Background.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea

RelativeVerticalPosition Especifica la posición vertical relativa de una forma.

ActiveDocument.Background.RelativeVerticalPosition = wdRelativeVerticalPositionBottomMarginArea

RelativeVerticalSize Devuelve o establece una constante WdRelativeVerticalSize que representa el tamaño vertical relativo de una forma.

ActiveDocument.Background.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea

Rotation Devuelve o establece el número de grados que gira la forma especificada alrededor del eje z.

ActiveDocument.Background.Rotation =

Script Devuelve un objeto script , que representa un bloque de secuencias de comandos o código para una imagen en una página web.

Dim scrScript As Office.Script
scrScript = ActiveDocument.Background.Script

Shadow Devuelve un objeto ShadowFormat que representa el formato de sombreado de la forma especificada.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Background.Shadow

SmartArt Devuelve un objeto SmartArt que proporciona una forma de trabajar con el SmartArt asociado a la forma especificada.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveDocument.Background.SmartArt

SoftEdge Devuelve un objeto SoftEdgeFormat que representa el formato de borde suave de una forma.

Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = ActiveDocument.Background.SoftEdge

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

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActiveDocument.Background.TextEffect

TextFrame Devuelve un objeto TextFrame que contiene el texto de la forma especificada.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveDocument.Background.TextFrame

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

Dim tf2TextFrame2 As Office.TextFrame2
Set tf2TextFrame2 = ActiveDocument.Background.TextFrame2

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

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveDocument.Background.ThreeD

Title Devuelve o establece una cadena que contiene un título para la forma especificada.

ActiveDocument.Background.Title =

Top Devuelve o establece la posición vertical de la forma especificada o intervalo de formas en puntos.

ActiveDocument.Background.Top =

TopRelative Devuelve o establece un valor Single que representa la posición superior relativa de una forma.

ActiveDocument.Background.TopRelative =

Type Devuelve el tipo de forma entre líneas.

Dim mstType As Office.MsoShapeType
mstType = ActiveDocument.Background.Type

VerticalFlip True si la forma especificada está volteada alrededor del eje vertical.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActiveDocument.Background.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.

Dim varVertices As Variant
varVertices = ActiveDocument.Background.Vertices

Width Devuelve o establece el ancho, en puntos, de la forma especificada.

ActiveDocument.Background.Width =

ShapeRange.Adjustments Devuelve un objeto Adjustments que contiene los valores de ajuste de todos los ajustes del objeto ShapeRange especificado que representa una Autoforma o WordArt.

Dim sre As ShapeRange: Set sre =  
Dim adjsAdjustments As Adjustments
Set adjsAdjustments = sre.Adjustments

ShapeRange.AlternativeText Devuelve o establece el texto alternativo asociado con una forma en una página web.

Dim sre As ShapeRange: Set sre =  
sre.AlternativeText =

ShapeRange.Anchor Devuelve un objeto Range que representa el intervalo de fijación del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim rngAnchor As Range
Set rngAnchor = sre.Anchor

ShapeRange.AutoShapeType Devuelve o establece el tipo de forma para el objeto ShapeRange especificado, que debe representar una autoforma que no sea una línea o dibujo de forma libre.

Dim sre As ShapeRange: Set sre =  
sre.AutoShapeType =

ShapeRange.Callout Devuelve un objeto CalloutFormat que contiene las propiedades del formato de llamada de la forma especificada.

Dim sre As ShapeRange: Set sre =  
Dim cftCallout As CalloutFormat
Set cftCallout = sre.Callout

ShapeRange.CanvasItems Devuelve un objeto CanvasShapes que representa una colección de formas en un lienzo de dibujo.

Dim sre As ShapeRange: Set sre =  
Dim cssCanvasItems As CanvasShapes
Set cssCanvasItems = sre.CanvasItems

ShapeRange.Child True si la forma es una forma secundaria o si todas las formas en un intervalo de formas son formas secundarias de la misma forma primaria.

Dim sre As ShapeRange: Set sre =  
Dim mtsChild As Office.MsoTriState
mtsChild = sre.Child

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

Dim sre As ShapeRange: Set sre =  
Dim lngCount As Long
lngCount = sre.Count

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

Dim sre As ShapeRange: Set sre =  
sre.Decorative =

ShapeRange.Fill Devuelve un objeto FillFormat que contiene las propiedades de formato de relleno de la forma especificada.

Dim sre As ShapeRange: Set sre =  
Dim fftFill As FillFormat
Set fftFill = sre.Fill

ShapeRange.Glow Devuelve un objeto GlowFormat que muestra el formato iluminado de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
Dim gftGlow As GlowFormat
Set gftGlow = sre.Glow

ShapeRange.GroupItems Devuelve un objeto GroupShapes que representa las formas individuales del grupo especificado.

Dim sre As ShapeRange: Set sre =  
Dim gssGroupItems As GroupShapes
Set gssGroupItems = sre.GroupItems

ShapeRange.Height Devuelve o establece el alto del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
sre.Height =

ShapeRange.HorizontalFlip Indica que un intervalo de formas se ha volteado horizontalmente.

Dim sre As ShapeRange: Set sre =  
Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = sre.HorizontalFlip

ShapeRange.Hyperlink Devuelve un objeto HYPERLINK que representa el hipervínculo asociado con el objeto ShapeRange especificado.

Dim sre As ShapeRange: Set sre =  
Dim hypHyperlink As Hyperlink
Set hypHyperlink = sre.Hyperlink

ShapeRange.ID Devuelve el tipo de identificación para el intervalo de formas.

Dim sre As ShapeRange: Set sre =  
Dim lngID As Long
lngID = sre.ID

ShapeRange.Left Devuelve o establece un valor Single que representa la posición horizontal, medida en puntos, del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
sre.Left =

ShapeRange.LeftRelative Devuelve o establece un valor Single que representa la posición izquierda relativa de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.LeftRelative =

ShapeRange.Line Devuelve un objeto LineFormat que contiene las propiedades de formato de línea del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim lftLine As LineFormat
Set lftLine = sre.Line

ShapeRange.LockAnchor True si el delimitador del objeto ShapeRange especificado está bloqueado para el intervalo de fijación.

Dim sre As ShapeRange: Set sre =  
sre.LockAnchor =

ShapeRange.LockAspectRatio MsoTrue si la forma especificada mantiene sus proporciones originales cuando se cambia el tamaño.

Dim sre As ShapeRange: Set sre =  
sre.LockAspectRatio =

ShapeRange.Model3D Devuelve un objeto Model3DFormat que contiene propiedades Model3D.

Dim sre As ShapeRange: Set sre =  
Dim mdfModel3D As Model3DFormat
Set mdfModel3D = sre.Model3D

ShapeRange.Name Devuelve o establece el nombre del objeto especificado.

Dim sre As ShapeRange: Set sre =  
sre.Name =

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

Dim sre As ShapeRange: Set sre =  
Dim snsNodes As ShapeNodes
Set snsNodes = sre.Nodes

ShapeRange.Parent Devuelve un objeto Object que representa el objeto primario del objeto ShapeRange especificado.

Dim sre As ShapeRange: Set sre =  
Dim objParent As Object
Set objParent = sre.Parent

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

Dim sre As ShapeRange: Set sre =  
Dim shpParentGroup As Shape
Set shpParentGroup = sre.ParentGroup

ShapeRange.PictureFormat Devuelve un objeto PictureFormat que contiene las propiedades de formato de imagen del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = sre.PictureFormat

ShapeRange.Reflection Devuelve un objeto ReflectionFormat que representa el formato de reflejo de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
Dim rftReflection As ReflectionFormat
Set rftReflection = sre.Reflection

ShapeRange.RelativeHorizontalPosition Especifica la posición horizontal relativa de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter

ShapeRange.RelativeHorizontalSize Devuelve o establece una constante wdrelativehorizontalsize ( que representa el objeto respecto al que es relativo un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea

ShapeRange.RelativeVerticalPosition Especifica la posición vertical relativa de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.RelativeVerticalPosition = wdRelativeVerticalPositionBottomMarginArea

ShapeRange.RelativeVerticalSize Devuelve o establece una constante WdRelativeVerticalSize que representa el objeto respecto al que es relativo un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea

ShapeRange.Rotation Devuelve o establece el número de grados que gira la forma especificada alrededor del eje z.

Dim sre As ShapeRange: Set sre =  
sre.Rotation =

ShapeRange.Shadow Devuelve un objeto ShadowFormat que representa el formato de sombreado de la forma especificada.

Dim sre As ShapeRange: Set sre =  
Dim sftShadow As ShadowFormat
Set sftShadow = sre.Shadow

ShapeRange.SoftEdge Devuelve un objeto SoftEdgeFormat que representa el formato de borde suave de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = sre.SoftEdge

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

Dim sre As ShapeRange: Set sre =  
Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = sre.TextEffect

ShapeRange.TextFrame Devuelve un objeto TextFrame que contiene el texto del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim tfeTextFrame As TextFrame
Set tfeTextFrame = sre.TextFrame

ShapeRange.TextFrame2 Devuelve un objeto TextFrame2 que contiene el texto del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim tf2TextFrame2 As Office.TextFrame2
Set tf2TextFrame2 = sre.TextFrame2

ShapeRange.ThreeD Devuelve un objeto ThreeDFormat que contiene las propiedades de formato 3D para el intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = sre.ThreeD

ShapeRange.Title Devuelve o establece una cadena que contiene un título para las formas del intervalo de formas especificado.

Dim sre As ShapeRange: Set sre =  
sre.Title =

ShapeRange.Top Devuelve o establece la posición vertical de la forma especificada o intervalo de formas en puntos.

Dim sre As ShapeRange: Set sre =  
sre.Top =

ShapeRange.TopRelative Devuelve o establece un valor Single que representa la posición superior relativa de un intervalo de formas.

Dim sre As ShapeRange: Set sre =  
sre.TopRelative =

ShapeRange.Type Devuelve el tipo de forma.

Dim sre As ShapeRange: Set sre =  
Dim mstType As Office.MsoShapeType
mstType = sre.Type

ShapeRange.VerticalFlip True si la forma especificada está volteada alrededor del eje vertical.

Dim sre As ShapeRange: Set sre =  
Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = sre.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.

Dim sre As ShapeRange: Set sre =  
Dim varVertices As Variant
varVertices = sre.Vertices

ShapeRange.Width Devuelve o establece el ancho, en puntos, de las formas dentro del intervalo.

Dim sre As ShapeRange: Set sre =  
sre.Width =

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

Dim lngCount As Long
lngCount = Selection.HeaderFooter.Shapes.Count

Shapes.Parent Devuelve un objeto Object que representa el objeto primario del objeto Shapes especificado.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.Shapes.Parent