Classe Shape (PowerPoint VBA)

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

Os principais procedimentos da classe Shape são Copy, Delete, Select, ShapeRange.Copy, ShapeRange.Delete e ShapeRange.Select

Set

Para usar uma variável de classe Shape, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo 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 e SlideRange.Shapes

Temas

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

Name with its procedures Placeholders.FindByName, Name, Title, ShapeRange.Name, ShapeRange.Title, Shapes.HasTitle e 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 e ShapeRange.Width
Copy with its procedures Copy e ShapeRange.Copy
Data with its procedures CustomerData e ShapeRange.CustomerData
XML with its procedures HasInkXML, InkXML, ShapeRange.HasInkXML e ShapeRange.InkXML
Picture with its procedures PictureFormat e ShapeRange.PictureFormat
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.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 e Shapes.AddTitle

Métodos

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

Delete - Exclui o objeto Shape especificado.

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

Select - Seleciona o objeto especificado.

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

ShapeRange.Delete - Exclui o objeto ShapeRange especificado.

ActiveWindow.RangeFromPoint.Ungroup.Delete

ShapeRange.Select - Seleciona o objeto especificado.

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

Estes são os principais métodos da classe

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

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

ShapeRange.Distribute - Distribui as formas uniformemente no intervalo especificado. Você pode especificar se deseja distribuir as formas no sentido horizontal ou vertical e também se deseja distribui-las por todo o slide ou apenas no espaço que ocupavam originariamente.

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

ShapeRange.MergeShapes - Combina todas as formas no intervalo para criar uma nova forma única.

ActiveWindow.RangeFromPoint.Ungroup.MergeShapes MergeCmd:=msoMergeUnion

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

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

Shapes.PasteSpecial - Cola o conteúdo da Área de transferência usando um formato especial.

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

Propriedades

GroupShapes.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

GroupShapes.Parent Retorna o objeto parente para o objeto especificado.

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

Placeholders.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

Placeholders.Parent Retorna o objeto parente para o objeto especificado.

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

ActionSettings Retorna um objeto ActionSettings que contém informações sobre a ação que ocorre quando o usuário clica ou move o mouse sobre o intervalo de texto ou forma especificado durante uma apresentação de slides. Somente leitura.

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

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

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

AlternativeText Retorna ou define o texto associado a uma forma em uma apresentação da Web. Leitura/gravação.

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

AnimationSettings Retorna um objeto AnimationSettings que representa todos os efeitos especiais que você pode aplicar à animação da forma especificada. Somente leitura.

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

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

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

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.

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

Callout Retorna um objeto CalloutFormat que contém as propriedades para a forma especificada de formatação do texto explicativo. Se aplica aos objetos Shape ou ShapeRange que representam textos explicativos de linha. Somente leitura.

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

Chart Retorna um objeto de gráfico do objeto de forma atual. Somente leitura.

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

Child MsoTrue se a forma for uma forma filha ou se todas as formas em um intervalo de formas são formas filhas do mesmo pai. Somente leitura.

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

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

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

Connector Determina se a forma especificada é um conector. Somente leitura.

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

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

ActiveWindow.RangeFromPoint.Decorative = msoTrue

Fill Retorna um objeto FillFormat que contém propriedades de formatação de preenchimento para a forma especificada. Somente leitura.

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

Glow Retorna o formato de brilho da forma especificada. Somente leitura.

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

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. Somente leitura.

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

HasChart Retorna se a forma representada pelo objeto especificado contém um quadro. Somente leitura.

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

HasSectionZoom

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

HasSmartArt Retorna true se o objeto de forma atual contiver um diagrama SmartArt. Somente leitura.

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

HasTable Retorna se a forma especificada é uma tabela. Somente leitura.

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

HasTextFrame Retorna se a forma especificada possui um quadro de texto. Somente leitura.

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

HorizontalFlip Retorna se a forma especificada está invertida em torno do seu eixo horizontal. Somente leitura.

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

Id Retorna um Long que identifica a forma ou intervalo de formas. Somente leitura.

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

IsNarration Especifica se o intervalo da forma especificada contém uma narração. Leitura/gravação.

ActiveWindow.RangeFromPoint.IsNarration = msoTrue

Left Retorna ou define um valor único que representa a distância em pontos da borda esquerda da caixa delimitadora da forma até a borda esquerda do slide. Leitura/gravação.

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

LockAspectRatio Determina que a forma especificada mantenha as suas proporções originais ao ser redimensionada. Leitura/gravação.

ActiveWindow.RangeFromPoint.LockAspectRatio = msoTrue

MediaType Retorna o tipo de mídia OLE. Somente leitura.

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

Nodes Retorna uma coleção ShapeNodes que representa a descrição geométrica da forma especificada. Se aplica aos objetos Shape que representam desenhos de forma livre.

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

Parent Retorna o objeto parente para o objeto especificado.

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

Reflection Retorna o formato de reflexão da forma especificada. Somente leitura.

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

Rotation Retorna ou define o número de graus em que a forma especificada é girada ao redor do eixo z. Leitura/gravação.

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

Shadow Retorna um objeto ShadowFormat que contém propriedades de formatação de sombras para a forma especificada. Somente leitura.

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

SmartArt Retorna um objeto do Microsoft Office SmartArt que representa o diagrama de SmartArt do objeto Shape. Somente leitura.

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

SoftEdge Retorna o formato de borda suave para a forma especificada. Somente leitura.

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

Table Retorna um objeto Table que representa uma tabela em uma forma ou em um intervalo de formas. Somente leitura.

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

Tags Retorna um objeto Tags que representa as marcas do objeto especificado. Somente leitura.

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

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

TextFrame Retorna um objeto TextFrame que contém o alinhamento e ancoragem propriedades para a forma especificada ou estilo de texto mestre.

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

TextFrame2 Retorna o objeto TextFrame2 associado ao objeto Shape especificado que contém as propriedades de alinhamento e ancoragem para a forma especificada. Somente leitura.

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

Top Retorna ou define um valor único que representa a distância entre a borda superior da caixa delimitadora da forma até a borda superior do documento. Leitura/gravação.

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

Type Representa o tipo de forma ou de formas em um intervalo de formas. Somente leitura.

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

VerticalFlip Determina se a forma especificada está invertida em torno do seu eixo vertical. Somente leitura.

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

Vertices Retorna as coordenadas dos vértices do desenho de forma livre especificado e os pontos de controle das curvas de Bézier como uma sequência de pares de coordenadas. Somente leitura.

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

ShapeRange.ActionSettings Retorna um objeto ActionSettings que contém informações sobre a ação que ocorre quando o usuário clica ou move o mouse sobre o intervalo de texto ou forma especificado durante uma apresentação de slides. Somente leitura.

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

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

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

ShapeRange.AlternativeText Retorna ou define o texto associado a uma forma em uma apresentação da Web. Leitura/gravação.

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

ShapeRange.AnimationSettings Retorna um objeto AnimationSettings que representa todos os efeitos especiais que você pode aplicar à animação da forma especificada. Somente leitura.

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

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

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

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.

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

ShapeRange.Callout Retorna um objeto CalloutFormat que contém as propriedades para a forma especificada de formatação do texto explicativo. Se aplica aos objetos Shape ou ShapeRange que representam textos explicativos de linha. Somente leitura.

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

ShapeRange.Chart Retorna o objeto de gráfico do objeto ShapeRange atual. Somente leitura.

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

ShapeRange.Child MsoTrue se a forma for uma forma filha ou se todas as formas em um intervalo de formas são formas filhas do mesmo pai. Somente leitura.

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

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

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

ShapeRange.Connector Determina se a forma especificada é um conector. Somente leitura.

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

ShapeRange.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

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

ActiveWindow.RangeFromPoint.Ungroup.Decorative = msoTrue

ShapeRange.Fill Retorna um objeto FillFormat que contém propriedades de formatação de preenchimento para a forma especificada. Somente leitura.

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

ShapeRange.Glow Retorna o formato de brilho do intervalo de formas especificado. Somente leitura.

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

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. Somente leitura.

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

ShapeRange.HasChart Retorna se o intervalo de formas representada pelo objeto especificado contém um quadro. Somente leitura.

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

HasSectionZoom

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

ShapeRange.HasSmartArt Retorna true se o objeto ShapeRange atual tiver um diagrama SmartArt. Somente leitura.

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

ShapeRange.HasTable Retorna se a forma especificada é uma tabela. Somente leitura.

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

ShapeRange.HasTextFrame Retorna se a forma especificada possui um quadro de texto. Somente leitura.

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

ShapeRange.HorizontalFlip Retorna se a forma especificada está invertida em torno do seu eixo horizontal. Somente leitura.

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

ShapeRange.Id Retorna um Long que identifica a forma ou intervalo de formas. Somente leitura.

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

ShapeRange.IsNarration Especifica se o intervalo da forma especificada contém uma narração. Leitura/gravação.

ActiveWindow.RangeFromPoint.Ungroup.IsNarration = msoTrue

ShapeRange.Left Retorna ou define um valor único que representa a distância em pontos a partir da borda esquerda da forma mais à esquerda no intervalo de formas até a borda esquerda do slide. Leitura/gravação.

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

ShapeRange.LockAspectRatio Determina que a forma especificada mantenha as suas proporções originais ao ser redimensionada. Leitura/gravação.

ActiveWindow.RangeFromPoint.Ungroup.LockAspectRatio = msoTrue

ShapeRange.MediaType Retorna o tipo de mídia OLE. Somente leitura.

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

ShapeRange.Nodes Retorna uma coleção ShapeNodes que representa a descrição geométrica da forma especificada. Aplica-se a objetos ShapeRange que representam desenhos de forma livre.

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

ShapeRange.Parent Retorna o objeto parente para o objeto especificado.

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

ShapeRange.Reflection Retorna o formato de reflexo do intervalo de formas especificado. Somente leitura.

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

ShapeRange.Rotation Retorna ou define o número de graus em que a forma especificada é girada ao redor do eixo z. Leitura/gravação.

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

ShapeRange.Shadow Retorna um objeto ShadowFormat que contém propriedades sobre formatação de sombras para as formas especificadas. Somente leitura.

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

ShapeRange.SmartArt Retorna o diagrama SmartArt do objeto ShapeRange . Somente leitura.

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

ShapeRange.SoftEdge Retorna o formato de borda suave para o intervalo de formas especificado. Somente leitura.

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

ShapeRange.Table Retorna um objeto Table que representa uma tabela em uma forma ou em um intervalo de formas. Somente leitura.

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

ShapeRange.Tags Retorna um objeto Tags que representa as marcas do objeto especificado. Somente leitura.

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

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

ShapeRange.TextFrame Retorna um objeto TextFrame que contém o alinhamento e ancoragem propriedades para a forma especificada ou estilo de texto mestre. Somente leitura.

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

ShapeRange.TextFrame2 Retorna o objeto TextFrame2 associado ao objeto ShapeRange especificado que contém as propriedades de alinhamento e ancoragem do intervalo de formas especificado. Somente leitura.

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

ShapeRange.Top Retorna ou define um valor único que representa a distância entre a borda superior da forma mais superior no intervalo da forma até a borda superior do documento. Leitura/gravação.

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

ShapeRange.Type Representa o tipo de forma ou de formas em um intervalo de formas. Somente leitura.

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

ShapeRange.VerticalFlip Determina se a forma especificada está invertida em torno do seu eixo vertical. Somente leitura.

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

ShapeRange.Vertices Retorna as coordenadas dos vértices do desenho de forma livre especificado e os pontos de controle das curvas de Bézier como uma sequência de pares de coordenadas. Somente leitura.

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

Shapes.Count Retorna o número de objetos na coleção especificada. Somente leitura.

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

Shapes.Parent Retorna o objeto parente para o objeto especificado.

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

Shapes.Placeholders Retorna uma coleção Placeholders que representa a coleção de todos os espaços reservados em um slide. Somente leitura.

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