Clase Shape (PowerPoint 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.Copy, ShapeRange.Delete y ShapeRange.Select

Set

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

Dim shp as Shape
Set shp = Dim lngX As Long: lngX = 
Dim lngY As Long: lngY = 
ActiveWindow.RangeFromPoint(X:=lngX, Y:=lngY)

Los siguientes procedimientos se pueden usar para establecer variables de clase Shape : GroupItems, ShapeRange.GroupItems, Shapes.Placeholders, Cell.Shape, ConnectorFormat.BeginConnectedShape, ConnectorFormat.EndConnectedShape, DocumentWindow.RangeFromPoint, Effect.Shape, FreeformBuilder.ConvertToShape, GroupShapes.Item, Placeholders.Item, Placeholders.FindByName, Presentation.DefaultShape, ResampleMediaTask.Shape, ParentGroup, ShapeRange.Item, ShapeRange.ParentGroup, ShapeRange.Group, ShapeRange.Regroup, Shapes.Item, Shapes.AddCallout, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddTextEffect, Shapes.AddTextbox, Shapes.Title, Shapes.Add3DModel, Shapes.AddChart2, Shapes.AddInkShapeFromXML, Shapes.AddMediaObject2, Shapes.AddMediaObjectFromEmbedTag, Shapes.AddOLEObject, Shapes.AddPicture2, Shapes.AddPlaceholder, Shapes.AddSmartArt, Shapes.AddTable, Shapes.AddTitle, Timing.TriggerShape, CustomLayout.Background, GroupShapes.Range, Master.Background, Selection.ChildShapeRange, Selection.ShapeRange, Duplicate, Ungroup, ShapeRange.Duplicate, ShapeRange.Ungroup, Shapes.Range, Shapes.Paste, Shapes.PasteSpecial, Slide.Background, SlideRange.Background, Chart.Shapes, CustomLayout.Shapes, Master.Shapes, Slide.Shapes y SlideRange.Shapes

Temas

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

Name with its procedures Placeholders.FindByName, Name, Title, ShapeRange.Name, ShapeRange.Title, Shapes.HasTitle y Shapes.Title
Format with its procedures BackgroundStyle, ConnectorFormat, GraphicStyle, Height, LinkFormat, MediaFormat, OLEFormat, PlaceholderFormat, ScaleHeight, ScaleWidth, ShapeStyle, Visible, Width, ShapeRange.BackgroundStyle, ShapeRange.ConnectorFormat, ShapeRange.GraphicStyle, ShapeRange.Height, ShapeRange.LinkFormat, ShapeRange.MediaFormat, ShapeRange.OLEFormat, ShapeRange.PlaceholderFormat, ShapeRange.ScaleHeight, ShapeRange.ScaleWidth, ShapeRange.ShapeStyle, ShapeRange.Visible y ShapeRange.Width
Copy with its procedures Copy y ShapeRange.Copy
Data with its procedures CustomerData y ShapeRange.CustomerData
XML with its procedures HasInkXML, InkXML, ShapeRange.HasInkXML y ShapeRange.InkXML
Picture with its procedures PictureFormat y ShapeRange.PictureFormat
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.AddInkShapeFromXML, Shapes.AddLabel, Shapes.AddLine, Shapes.AddMediaObject2, Shapes.AddMediaObjectFromEmbedTag, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPicture2, Shapes.AddPlaceholder, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTable, Shapes.AddTextbox, Shapes.AddTextEffect y Shapes.AddTitle

Métodos

Los principales métodos de la clase Shape son

Delete - Elimina el objeto Shape especificado.

ActivePresentation.Slides(1).Shapes(1).Delete

Select - Selecciona el objeto especificado.

ActivePresentation.Slides(1).Shapes(1).Select

ShapeRange.Delete - Elimina el objeto ShapeRange especificado.

ActiveWindow.RangeFromPoint.Ungroup.Delete

ShapeRange.Select - Selecciona el objeto especificado.

ActivePresentation.Slides(1).Shapes(1).Ungroup.Select

Otros Métodos

ShapeRange.Align - Alinea las formas del intervalo especificado.

ActiveWindow.RangeFromPoint.Ungroup.Align AlignCmd:=msoAlignLefts, RelativeTo:=msoTrue

ShapeRange.Distribute - Distribuye uniformemente las formas del intervalo especificado. Puede especificar si desea distribuir las formas vertical u horizontalmente y si desea distribuirlas por toda la diapositiva o sólo en el espacio que ocupan originalmente.

ActiveWindow.RangeFromPoint.Ungroup.Distribute DistributeCmd:=msoDistributeHorizontally, RelativeTo:=msoTrue

ShapeRange.MergeShapes - Combina todas las formas del intervalo para crear una sola forma nueva.

ActiveWindow.RangeFromPoint.Ungroup.MergeShapes MergeCmd:=msoMergeUnion

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

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

Shapes.PasteSpecial - Pega el contenido del Portapapeles, con un formato especial.

Dim srePasteSpecial As ShapeRange
Set srePasteSpecial = ActivePresentation.SlideMaster.Shapes.PasteSpecial()

Propiedades

GroupShapes.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Ungroup.GroupItems.Count

GroupShapes.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Ungroup.GroupItems.Parent

Placeholders.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).Shapes.Placeholders.Count

Placeholders.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).Shapes.Placeholders.Parent

ActionSettings Devuelve un objeto ActionSettings que contiene información acerca de qué acción se produce cuando el usuario hace clic o mueve el mouse sobre el intervalo de texto o forma especificado durante una presentación con diapositivas. Solo lectura.

Dim assActionSettings As ActionSettings
Set assActionSettings = ActivePresentation.Slides(1).Shapes(1).ActionSettings

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. Solo lectura.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActivePresentation.Slides(1).Shapes(3).Adjustments

AlternativeText Devuelve o establece el texto alternativo asociado a una forma en una presentación web. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).AlternativeText = "This is a canard."

AnimationSettings Devuelve un objeto AnimationSettings que representa todos los efectos especiales que se pueden aplicar a la animación de la forma especificada. Solo lectura.

Dim assAnimationSettings As AnimationSettings
Set assAnimationSettings = ActivePresentation.Slides(2).Shapes(2).AnimationSettings

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

ActivePresentation.Slides(1).Shapes(1).AutoShapeType = msoShapeMixed

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. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).BlackWhiteMode = msoBlackWhiteMixed

Callout Devuelve un objeto CalloutFormat que contiene las propiedades de la forma especificada el formato de la llamada. Se aplica a los objetos Shape o ShapeRange que representan llamadas de línea. Solo lectura.

Dim cftCallout As CalloutFormat
Set cftCallout = ActivePresentation.Slides(1).Shapes(2).Callout

Chart Devuelve un objeto Chart del actual objeto Shape. Solo lectura.

Dim chrChart As Chart
Set chrChart = ActiveWindow.RangeFromPoint.Chart

Child MsoTrue 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. Solo lectura.

Dim mtsChild As Office.MsoTriState
mtsChild = ActivePresentation.Slides(1).Shapes(1).Child

ConnectionSiteCount Devuelve el número de sitios de conexión de la forma especificada. Solo lectura.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = ActivePresentation.Slides(1).Shapes(1).ConnectionSiteCount

Connector Determina si la forma especificada es un conector. Solo lectura.

Dim mtsConnector As Office.MsoTriState
mtsConnector = ActivePresentation.Slides(1).Shapes(1).Connector

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

ActiveWindow.RangeFromPoint.Decorative = msoTrue

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

Dim fftFill As FillFormat
Set fftFill = ActivePresentation.Slides(1).Shapes(1).Fill

Glow Devuelve el formato de iluminado de la forma especificada. Solo lectura.

Dim gftGlow As Office.GlowFormat
Set gftGlow = ActiveWindow.RangeFromPoint.Glow

GroupItems Devuelve un objeto GroupShapes que representa las formas individuales del grupo especificado. Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Solo lectura.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActivePresentation.Slides(1).Shapes(1).GroupItems

HasChart Devuelve si la forma representada por el objeto especificado contiene un gráfico. Solo lectura.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveWindow.RangeFromPoint.HasChart

HasSectionZoom

Dim mtsHasSectionZoom As Office.MsoTriState
mtsHasSectionZoom = ActiveWindow.RangeFromPoint.HasSectionZoom

HasSmartArt Devuelve true si el objeto actual Shape contiene un diagrama de SmartArt. Solo lectura.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveWindow.RangeFromPoint.HasSmartArt

HasTable Devuelve si la forma especificada es un tabla. Solo lectura.

Dim mtsHasTable As Office.MsoTriState
mtsHasTable = ActivePresentation.Slides(1).Shapes(1).HasTable

HasTextFrame Devuelve si la forma especificada tiene un marco de texto. Solo lectura.

Dim mtsHasTextFrame As Office.MsoTriState
mtsHasTextFrame = ActivePresentation.Slides(1).Shapes(1).HasTextFrame

HorizontalFlip Devuelve si la forma especificada se voltea alrededor del eje horizontal. Solo lectura.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActivePresentation.Slides(1).Shapes(1).HorizontalFlip

Id Devuelve un Long que identifica la forma o intervalo de formas. Solo lectura.

Dim lngId As Long
lngId = ActivePresentation.Slides(1).Shapes(1).Id

IsNarration Especifica si el intervalo de formas especificado contiene una narración. Lectura y escritura.

ActiveWindow.RangeFromPoint.IsNarration = msoTrue

Left Devuelve o establece un valor Single que representa la distancia en puntos desde el borde izquierdo del cuadro de límite de la forma hasta el borde izquierdo de la diapositiva. Lectura y escritura.

ActiveWindow.RangeFromPoint.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.) Es de sólo lectura.

Dim lftLine As LineFormat
Set lftLine = ActivePresentation.Slides(1).Shapes(1).Line

LockAspectRatio Determina si la forma especificada mantiene sus proporciones originales al cambiar su tamaño. Lectura y escritura.

ActiveWindow.RangeFromPoint.LockAspectRatio = msoTrue

MediaType Devuelve el tipo de medio OLE. Solo lectura.

Dim pmtMediaType As PpMediaType
pmtMediaType = ActivePresentation.Slides(1).Shapes(1).MediaType

Nodes Devuelve una colección ShapeNodes que representa la descripción geométrica de la forma especificada. Se aplica a objetos Shape que representan dibujos de forma libre.

Dim snsNodes As ShapeNodes
Set snsNodes = ActivePresentation.Slides(1).Shapes(1).Nodes

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.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 = ActivePresentation.Slides(1).Shapes(1).ParentGroup

Reflection Devuelve el formato de reflejo de la forma especificada. Solo lectura.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = ActiveWindow.RangeFromPoint.Reflection

Rotation Devuelve o establece el número de grados en que se gira la forma especificada alrededor del eje Z. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Rotation = 90

Shadow Devuelve un objeto ShadowFormat que contiene las propiedades de formato de sombra de la forma especificada. Solo lectura.

Dim sftShadow As ShadowFormat
Set sftShadow = ActivePresentation.Slides(1).Shapes(1).Shadow

SmartArt Devuelve un objeto de Microsoft Office SmartArt que representa el diagrama de SmartArt del objeto Shape. Solo lectura.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveWindow.RangeFromPoint.SmartArt

SoftEdge Devuelve el formato de bordes suaves de la forma especificada. Solo lectura.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = ActiveWindow.RangeFromPoint.SoftEdge

Table Devuelve un objeto Table que representa una tabla en una forma o en un intervalo de formas. Solo lectura.

Dim tblTable As Table
Set tblTable = ActivePresentation.Slides(1).Shapes(1).Table

Tags Devuelve un objeto Tags que representa las etiquetas para el objeto especificado. Solo lectura.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides(1).Shapes(1).Tags

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 = ActivePresentation.Slides(1).Shapes(1).TextEffect

TextFrame Devuelve un objeto TextFrame que contiene la alineación y delimitación de propiedades para la forma especificada o el estilo de texto de patrón.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActivePresentation.Slides(1).Shapes(1).TextFrame

TextFrame2 Devuelve el objeto TextFrame2 asociado al objeto Shape especificado que contiene las propiedades de alineación y delimitación de la forma especificada. Solo lectura.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveWindow.RangeFromPoint.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 = ActivePresentation.Slides(1).Shapes(1).ThreeD

Top Devuelve o establece un valor Single que representa la distancia desde el borde superior del cuadro de límite de la forma hasta el borde superior del documento. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Top = 40

Type Representa el tipo de formas de un intervalo de formas. Solo lectura.

Dim mstType As Office.MsoShapeType
mstType = ActivePresentation.Slides(1).Shapes(1).Type

VerticalFlip Determina si la forma especificada se voltea alrededor del eje vertical. Solo lectura.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActivePresentation.Slides(1).Shapes(1).VerticalFlip

Vertices Devuelve las coordenadas de los vértices del dibujo de forma libre especificado (y los puntos de control para curvas de Bézier) como una serie de pares de coordenadas. Solo lectura.

Dim varVertices As Variant
varVertices = ActivePresentation.Slides(1).Shapes(1).Vertices

ShapeRange.ActionSettings Devuelve un objeto ActionSettings que contiene información acerca de qué acción se produce cuando el usuario hace clic o mueve el mouse sobre el intervalo de texto o forma especificado durante una presentación con diapositivas. Solo lectura.

Dim assActionSettings As ActionSettings
Set assActionSettings = ActivePresentation.Slides(1).Shapes(1).Ungroup.ActionSettings

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

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActivePresentation.Slides(1).Shapes(1).Ungroup.Adjustments

ShapeRange.AlternativeText Devuelve o establece el texto alternativo asociado a una forma en una presentación web. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Ungroup.AlternativeText =

ShapeRange.AnimationSettings Devuelve un objeto AnimationSettings que representa todos los efectos especiales que se pueden aplicar a la animación de la forma especificada. Solo lectura.

Dim assAnimationSettings As AnimationSettings
Set assAnimationSettings = ActivePresentation.Slides(1).Shapes(1).Ungroup.AnimationSettings

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, un dibujo de forma libre o un conector. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Ungroup.AutoShapeType = msoShapeMixed

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. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Ungroup.BlackWhiteMode = msoBlackWhiteMixed

ShapeRange.Callout Devuelve un objeto CalloutFormat que contiene las propiedades de la forma especificada el formato de la llamada. Se aplica a los objetos Shape o ShapeRange que representan llamadas de línea. Solo lectura.

Dim cftCallout As CalloutFormat
Set cftCallout = ActivePresentation.Slides(1).Shapes(1).Ungroup.Callout

ShapeRange.Chart Devuelve el objeto Chart del objeto ShapeRange actual. Solo lectura.

Dim chrChart As Chart
Set chrChart = ActiveWindow.RangeFromPoint.Ungroup.Chart

ShapeRange.Child MsoTrue 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. Solo lectura.

Dim mtsChild As Office.MsoTriState
mtsChild = ActivePresentation.Slides(1).Shapes(1).Ungroup.Child

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

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = ActivePresentation.Slides(1).Shapes(1).Ungroup.ConnectionSiteCount

ShapeRange.Connector Determina si la forma especificada es un conector. Solo lectura.

Dim mtsConnector As Office.MsoTriState
mtsConnector = ActivePresentation.Slides(1).Shapes(1).Ungroup.Connector

ShapeRange.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Ungroup.Count

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

ActiveWindow.RangeFromPoint.Ungroup.Decorative = msoTrue

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

Dim fftFill As FillFormat
Set fftFill = ActivePresentation.Slides(1).Shapes(1).Ungroup.Fill

ShapeRange.Glow Devuelve el formato de iluminado del intervalo de formas especificado. Solo lectura.

Dim gftGlow As Office.GlowFormat
Set gftGlow = ActiveWindow.RangeFromPoint.Ungroup.Glow

ShapeRange.GroupItems Devuelve un objeto GroupShapes que representa las formas individuales del grupo especificado. Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Solo lectura.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActivePresentation.Slides(1).Shapes(1).Ungroup.GroupItems

ShapeRange.HasChart Devuelve si el intervalo de formas representado por el objeto especificado contiene un gráfico. Solo lectura.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveWindow.RangeFromPoint.Ungroup.HasChart

HasSectionZoom

Dim mtsHasSectionZoom As Office.MsoTriState
mtsHasSectionZoom = ActiveWindow.RangeFromPoint.Ungroup.HasSectionZoom

ShapeRange.HasSmartArt Devuelve true si el objeto ShapeRange actual tiene un diagrama SmartArt. Solo lectura.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveWindow.RangeFromPoint.Ungroup.HasSmartArt

ShapeRange.HasTable Devuelve si la forma especificada es un tabla. Solo lectura.

Dim mtsHasTable As Office.MsoTriState
mtsHasTable = ActivePresentation.Slides(1).Shapes(1).Ungroup.HasTable

ShapeRange.HasTextFrame Devuelve si la forma especificada tiene un marco de texto. Solo lectura.

Dim mtsHasTextFrame As Office.MsoTriState
mtsHasTextFrame = ActivePresentation.Slides(1).Shapes(1).Ungroup.HasTextFrame

ShapeRange.HorizontalFlip Devuelve si la forma especificada se voltea alrededor del eje horizontal. Solo lectura.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActivePresentation.Slides(1).Shapes(1).Ungroup.HorizontalFlip

ShapeRange.Id Devuelve un Long que identifica la forma o intervalo de formas. Solo lectura.

Dim lngId As Long
lngId = ActivePresentation.Slides(1).Shapes(1).Ungroup.Id

ShapeRange.IsNarration Especifica si el intervalo de formas especificado contiene una narración. Lectura y escritura.

ActiveWindow.RangeFromPoint.Ungroup.IsNarration = msoTrue

ShapeRange.Left Devuelve o establece un valor Single que representa la distancia en puntos desde el borde izquierdo de la forma situada en el intervalo de formas al borde izquierdo de la diapositiva. Lectura y escritura.

ActiveWindow.RangeFromPoint.Ungroup.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.) Es de sólo lectura.

Dim lftLine As LineFormat
Set lftLine = ActivePresentation.Slides(1).Shapes(1).Ungroup.Line

ShapeRange.LockAspectRatio Determina si la forma especificada mantiene sus proporciones originales al cambiar su tamaño. Lectura y escritura.

ActiveWindow.RangeFromPoint.Ungroup.LockAspectRatio = msoTrue

ShapeRange.MediaType Devuelve el tipo de medio OLE. Solo lectura.

Dim pmtMediaType As PpMediaType
pmtMediaType = ActivePresentation.Slides(1).Shapes(1).Ungroup.MediaType

ShapeRange.Nodes Devuelve una colección ShapeNodes que representa la descripción geométrica de la forma especificada. Se aplica a los objetos ShapeRange que representan dibujos de forma libre.

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveWindow.RangeFromPoint.Ungroup.Nodes

ShapeRange.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Ungroup.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 = ActivePresentation.Slides(1).Shapes(1).Ungroup.ParentGroup

ShapeRange.Reflection Devuelve el formato de reflejo del intervalo de formas especificado. Solo lectura.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = ActiveWindow.RangeFromPoint.Ungroup.Reflection

ShapeRange.Rotation Devuelve o establece el número de grados en que se gira la forma especificada alrededor del eje Z. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Ungroup.Rotation = 45

ShapeRange.Shadow Devuelve un objeto ShadowFormat que contiene las propiedades de formato de sombra de las formas especificadas. Solo lectura.

Dim sftShadow As ShadowFormat
Set sftShadow = ActivePresentation.Slides(1).Shapes(1).Ungroup.Shadow

ShapeRange.SmartArt Devuelve el diagrama SmartArt del objeto ShapeRange . Solo lectura.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveWindow.RangeFromPoint.Ungroup.SmartArt

ShapeRange.SoftEdge Devuelve el formato de bordes suaves del intervalo de formas especificado. Solo lectura.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = ActiveWindow.RangeFromPoint.Ungroup.SoftEdge

ShapeRange.Table Devuelve un objeto Table que representa una tabla en una forma o en un intervalo de formas. Solo lectura.

Dim tblTable As Table
Set tblTable = ActivePresentation.Slides(1).Shapes(1).Ungroup.Table

ShapeRange.Tags Devuelve un objeto Tags que representa las etiquetas para el objeto especificado. Solo lectura.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Slides(1).Shapes(1).Ungroup.Tags

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 = ActivePresentation.Slides(1).Shapes(1).Ungroup.TextEffect

ShapeRange.TextFrame Devuelve un objeto TextFrame que contiene la alineación y delimitación de propiedades para la forma especificada o el estilo de texto de patrón. Solo lectura.

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActivePresentation.Slides(1).Shapes(1).Ungroup.TextFrame

ShapeRange.TextFrame2 Devuelve el objeto TextFrame2 asociado con el objeto ShapeRange especificado que contiene las propiedades de alineación y delimitación del intervalo de formas especificado. Solo lectura.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveWindow.RangeFromPoint.Ungroup.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 = ActivePresentation.Slides(1).Shapes(1).Ungroup.ThreeD

ShapeRange.Top Devuelve o establece un valor Single que representa la distancia desde el borde superior de la forma superior del rango hasta el borde superior del documento. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).Ungroup.Top = 80

ShapeRange.Type Representa el tipo de formas de un intervalo de formas. Solo lectura.

Dim mstType As Office.MsoShapeType
mstType = ActiveWindow.RangeFromPoint.Ungroup.Type

ShapeRange.VerticalFlip Determina si la forma especificada se voltea alrededor del eje vertical. Solo lectura.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActivePresentation.Slides(1).Shapes(1).Ungroup.VerticalFlip

ShapeRange.Vertices Devuelve las coordenadas de los vértices del dibujo de forma libre especificado (y los puntos de control para curvas de Bézier) como una serie de pares de coordenadas. Solo lectura.

Dim varVertices As Variant
varVertices = ActivePresentation.Slides(1).Shapes(1).Ungroup.Vertices

Shapes.Count Devuelve el número de objetos de la colección especificada. Solo lectura.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.SlideRange(1).Shapes.Count

Shapes.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.SlideRange(1).Shapes.Parent

Shapes.Placeholders Devuelve una colección Placeholders que representa la colección de todos los marcadores de posición en una diapositiva. Solo lectura.

Dim plcsPlaceholders As Placeholders
Set plcsPlaceholders = ActiveWindow.Selection.SlideRange(1).Shapes.Placeholders