Class Shape (PowerPoint VBA)

The class Shape represents an object in the drawing layer, such as an AutoShape, freeform, OLE object, or picture.

The main procedures of class Shape are Copy, Delete, Select, ShapeRange.Copy, ShapeRange.Delete and ShapeRange.Select

Set

To use a Shape class variable it first needs to be instantiated, for example

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

The following procedures can be used to set variables of type 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 and SlideRange.Shapes

Themes

Some procedures in this class have been grouped together in themes and are described on separate theme pages

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

Methods

These are the main methods of the Shape class

Delete - Deletes the specified Shape object.

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

Select - Selects the specified object.

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

ShapeRange.Delete - Deletes the specified ShapeRange object.

ActiveWindow.RangeFromPoint.Ungroup.Delete

ShapeRange.Select - Selects the specified object.

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

Other Methods

ShapeRange.Align - Aligns the shapes in the specified range of shapes.

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

ShapeRange.Distribute - Evenly distributes the shapes in the specified range of shapes. You can specify whether you want to distribute the shapes horizontally or vertically and whether you want to distribute them over the entire slide or just over the space they originally occupy.

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

ShapeRange.MergeShapes - Combines all of the shapes in the range to create a single new shape.

ActiveWindow.RangeFromPoint.Ungroup.MergeShapes MergeCmd:=msoMergeUnion

Shapes.BuildFreeform - Builds a freeform object. Returns a FreeformBuilder object that represents the freeform as it is being built.

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

Shapes.PasteSpecial - Pastes the contents of the Clipboard, using a special format.

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

Properties

GroupShapes.Count returns the number of objects in the specified collection.

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

GroupShapes.Parent returns the parent object for the specified object.

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

Placeholders.Count returns the number of objects in the specified collection.

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

Placeholders.Parent returns the parent object for the specified object.

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

ActionSettings returns an ActionSettings object that contains information about what action occurs when the user clicks or moves the mouse over the specified shape or text range during a slide show.

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

Adjustments returns an Adjustments object that contains adjustment values for all the adjustments in the specified shape. Applies to any Shape object that represents an AutoShape, WordArt, or a connector.

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

AlternativeText returns or sets the alternative text associated with a shape in a Web presentation.

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

AnimationSettings returns an AnimationSettings object that represents all the special effects you can apply to the animation of the specified shape.

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

AutoShapeType returns or sets the shape type for the specified Shape object, which must represent an AutoShape other than a line, freeform drawing, or connector.

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

BlackWhiteMode returns or sets a value that indicates how the specified shape appears when the presentation is viewed in black-and-white mode.

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

Callout returns a CalloutFormat object that contains callout formatting properties for the specified shape. Applies to Shape or ShapeRange objects that represent line callouts.

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

Chart returns a Chart object of the current Shape object.

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

Child msoTrue if the shape is a child shape or if all shapes in a shape range are child shapes of the same parent.

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

ConnectionSiteCount returns the number of connection sites on the specified shape.

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

Connector determines whether the specified shape is a connector.

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

Decorative sets or returns the decorative flag for the specified object.

ActiveWindow.RangeFromPoint.Decorative = msoTrue

Fill returns a FillFormat object that contains fill formatting properties for the specified shape.

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

Glow returns the glow format for the specified shape.

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

GroupItems returns a GroupShapes object that represents the individual shapes in the specified group. Use the Item method of the GroupShapes object to return a single shape from the group.

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

HasChart returns whether the shape represented by the specified object contains a chart.

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

HasSectionZoom

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

HasSmartArt returns True if the current Shape object contains a SmartArt diagram.

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

HasTable returns whether the specified shape is a table.

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

HasTextFrame returns whether the specified shape has a text frame.

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

HorizontalFlip returns whether the specified shape is flipped around the horizontal axis.

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

Id returns a Long that identifies the shape or range of shapes.

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

IsNarration specifies whether the specified shape range contains a narration.

ActiveWindow.RangeFromPoint.IsNarration = msoTrue

Left returns or sets a Single that represents the distance in points from the left edge of the shape's bounding box to the left edge of the slide.

ActiveWindow.RangeFromPoint.Left =

Line returns a LineFormat object that contains line formatting properties for the specified shape. (For a line, the LineFormat object represents the line itself; for a shape with a border, the LineFormat object represents the border.

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

LockAspectRatio determines whether the specified shape retains its original proportions when you resize it.

ActiveWindow.RangeFromPoint.LockAspectRatio = msoTrue

MediaType returns the OLE media type.

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

Nodes returns a ShapeNodes collection that represents the geometric description of the specified shape. Applies to Shape objects that represent freeform drawings.

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

Parent returns the parent object for the specified object.

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

ParentGroup returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

Dim shpParentGroup As Shape
Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1).ParentGroup

Reflection returns the reflection format for the specified shape.

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

Rotation returns or sets the number of degrees the specified shape is rotated around the z-axis.

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

Shadow returns a ShadowFormat object that contains shadow formatting properties for the specified shape.

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

SmartArt returns a Microsoft Office SmartArt object that represents the SmartArt diagram of the Shape object.

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

SoftEdge returns the soft edge format for the specified shape.

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

Table returns a Table object that represents a table in a shape or in a shape range.

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

Tags returns a Tags object that represents the tags for the specified object.

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

TextEffect returns a TextEffectFormat object that contains text-effect formatting properties for the specified shape.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActivePresentation.Slides(1).Shapes(1).TextEffect

TextFrame returns a TextFrame object that contains the alignment and anchoring properties for the specified shape or master text style.

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

TextFrame2 returns the TextFrame2 object associated with the specified Shape object that contains the alignment and anchoring properties for the specified shape.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveWindow.RangeFromPoint.TextFrame2

ThreeD returns a ThreeDFormat object that contains 3D - effect formatting properties for the specified shape.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActivePresentation.Slides(1).Shapes(1).ThreeD

Top returns or sets a Single that represents the distance from the top edge of the shape's bounding box to the top edge of the document.

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

Type represents the type of shape or shapes in a range of shapes.

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

VerticalFlip determines whether the specified shape is flipped around the vertical axis.

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

Vertices returns the coordinates of the specified freeform drawing's vertices (and control points for Bézier curves) as a series of coordinate pairs.

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

ShapeRange.ActionSettings returns an ActionSettings object that contains information about what action occurs when the user clicks or moves the mouse over the specified shape or text range during a slide show.

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

ShapeRange.Adjustments returns an Adjustments object that contains adjustment values for all the adjustments in the specified shape. Applies to any ShapeRange object that represents an AutoShape, WordArt, or a connector.

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

ShapeRange.AlternativeText returns or sets the alternative text associated with a shape in a Web presentation.

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

ShapeRange.AnimationSettings returns an AnimationSettings object that represents all the special effects you can apply to the animation of the specified shape.

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

ShapeRange.AutoShapeType returns or sets the shape type for the specified ShapeRange object, which must represent an AutoShape other than a line, freeform drawing, or connector.

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

ShapeRange.BlackWhiteMode returns or sets a value that indicates how the specified shape appears when the presentation is viewed in black-and-white mode.

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

ShapeRange.Callout returns a CalloutFormat object that contains callout formatting properties for the specified shape. Applies to Shape or ShapeRange objects that represent line callouts.

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

ShapeRange.Chart returns the Chart object of the current ShapeRange object.

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

ShapeRange.Child msoTrue if the shape is a child shape or if all shapes in a shape range are child shapes of the same parent.

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

ShapeRange.ConnectionSiteCount returns the number of connection sites on the specified shape.

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

ShapeRange.Connector determines whether the specified shape is a connector.

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

ShapeRange.Count returns the number of objects in the specified collection.

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

ShapeRange.Decorative sets or returns the decorative flag for the specified object.

ActiveWindow.RangeFromPoint.Ungroup.Decorative = msoTrue

ShapeRange.Fill returns a FillFormat object that contains fill formatting properties for the specified shape.

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

ShapeRange.Glow returns the glow format for the specified range of shapes.

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

ShapeRange.GroupItems returns a GroupShapes object that represents the individual shapes in the specified group. Use the Item method of the GroupShapes object to return a single shape from the group.

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

ShapeRange.HasChart returns whether the shape range represented by the specified object contains a chart.

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

HasSectionZoom

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

ShapeRange.HasSmartArt returns True if the current ShapeRange object has a SmartArt diagram.

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

ShapeRange.HasTable returns whether the specified shape is a table.

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

ShapeRange.HasTextFrame returns whether the specified shape has a text frame.

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

ShapeRange.HorizontalFlip returns whether the specified shape is flipped around the horizontal axis.

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

ShapeRange.Id returns a Long that identifies the shape or range of shapes.

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

ShapeRange.IsNarration specifies whether the specified shape range contains a narration.

ActiveWindow.RangeFromPoint.Ungroup.IsNarration = msoTrue

ShapeRange.Left returns or sets a Single that represents the distance in points from the left edge of the leftmost shape in the shape range to the left edge of the slide.

ActiveWindow.RangeFromPoint.Ungroup.Left =

ShapeRange.Line returns a LineFormat object that contains line formatting properties for the specified shape. (For a line, the LineFormat object represents the line itself; for a shape with a border, the LineFormat object represents the border.

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

ShapeRange.LockAspectRatio determines whether the specified shape retains its original proportions when you resize it.

ActiveWindow.RangeFromPoint.Ungroup.LockAspectRatio = msoTrue

ShapeRange.MediaType returns the OLE media type.

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

ShapeRange.Nodes returns a ShapeNodes collection that represents the geometric description of the specified shape. Applies to ShapeRange objects that represent freeform drawings.

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

ShapeRange.Parent returns the parent object for the specified object.

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

ShapeRange.ParentGroup returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

Dim shpParentGroup As Shape
Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1).Ungroup.ParentGroup

ShapeRange.Reflection returns the reflection format for the specified range of shapes.

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

ShapeRange.Rotation returns or sets the number of degrees the specified shape is rotated around the z-axis.

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

ShapeRange.Shadow returns a ShadowFormat object that contains shadow formatting properties for the specified shapes.

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

ShapeRange.SmartArt returns the SmartArt diagram of the ShapeRange object.

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

ShapeRange.SoftEdge returns the soft edge format for the specified range of shapes.

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

ShapeRange.Table returns a Table object that represents a table in a shape or in a shape range.

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

ShapeRange.Tags returns a Tags object that represents the tags for the specified object.

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

ShapeRange.TextEffect returns a TextEffectFormat object that contains text-effect formatting properties for the specified shape.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActivePresentation.Slides(1).Shapes(1).Ungroup.TextEffect

ShapeRange.TextFrame returns a TextFrame object that contains the alignment and anchoring properties for the specified shape or master text style.

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

ShapeRange.TextFrame2 returns the TextFrame2 object associated with the specified ShapeRange object that contains the alignment and anchoring properties for the specified shape range.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveWindow.RangeFromPoint.Ungroup.TextFrame2

ShapeRange.ThreeD returns a ThreeDFormat object that contains 3D - effect formatting properties for the specified shape.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActivePresentation.Slides(1).Shapes(1).Ungroup.ThreeD

ShapeRange.Top returns or sets a Single that represents the distance from the top edge of the topmost shape in the shape range to the top edge of the document.

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

ShapeRange.Type represents the type of shape or shapes in a range of shapes.

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

ShapeRange.VerticalFlip determines whether the specified shape is flipped around the vertical axis.

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

ShapeRange.Vertices returns the coordinates of the specified freeform drawing's vertices (and control points for Bézier curves) as a series of coordinate pairs.

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

Shapes.Count returns the number of objects in the specified collection.

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

Shapes.Parent returns the parent object for the specified object.

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

Shapes.Placeholders returns a Placeholders collection that represents the collection of all the placeholders on a slide.

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