Classe Shape (PowerPoint VBA)

La classe Shape représente un objet du calque de dessin, comme une forme automatique, une forme libre, un objet OLE ou une image.

Les procédures principales de la classe Shape sont Copy, Delete, Select, ShapeRange.Copy, ShapeRange.Delete et ShapeRange.Select

Set

Pour utiliser une variable de classe Shape, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe 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 et SlideRange.Shapes

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

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

Méthodes

Les méthodes principales de la classe Shape sont

Delete - Supprime l’objet Shape spécifié.

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

Select - Sélectionne l'objet spécifié.

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

ShapeRange.Delete - Supprime l’objet ShapeRange spécifié.

ActiveWindow.RangeFromPoint.Ungroup.Delete

ShapeRange.Select - Sélectionne l'objet spécifié.

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

Autre Méthodes

ShapeRange.Align - Aligne les formes contenues dans la plage de formes spécifiée.

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

ShapeRange.Distribute - Répartit uniformément les formes dans la plage de formes spécifiée. Vous pouvez définir une répartition horizontale ou verticale des formes et indiquer si vous souhaitez les répartir sur toute la diapositive ou uniquement sur l’espace qu’elles occupaient à l’origine.

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

ShapeRange.MergeShapes - Combine toutes les formes de la plage pour créer une seule nouvelle forme.

ActiveWindow.RangeFromPoint.Ungroup.MergeShapes MergeCmd:=msoMergeUnion

Shapes.BuildFreeform - Crée une forme libre. Renvoie un objet FreeformBuilder qui représente la forme libre telle qu'elle est créée.

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

Shapes.PasteSpecial - Cette méthode colle le contenu du Presse-papiers en utilisant un format spécial.

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

Propriétés

GroupShapes.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

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

GroupShapes.Parent Renvoie l’objet parent de l’objet spécifié.

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

Placeholders.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

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

Placeholders.Parent Renvoie l’objet parent de l’objet spécifié.

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

ActionSettings Renvoie un objet ActionSettings qui contient des informations sur l’action qui se produit lorsque l’utilisateur clique ou déplace la souris sur la forme ou la plage de texte spécifiée au cours d’un diaporama. En lecture seule.

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

Adjustments Renvoie un objet Adjustments qui contient les valeurs d’ajustement pour tous les ajustements dans la forme spécifiée. S’applique à tout objet Shape qui représente une forme automatique, un dessin WordArt ou un connecteur. En lecture seule.

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

AlternativeText Renvoie ou définit le texte de remplacement associé à une forme dans une présentation Web. Lecture-écriture.

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

AnimationSettings Renvoie un objet AnimationSettings qui représente tous les effets spéciaux que vous pouvez appliquer à l’animation de la forme spécifiée. En lecture seule.

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

AutoShapeType Cette propriété renvoie ou définit le type de forme pour l’objet Shape spécifié, qui doit représenter une forme automatique autre qu’un trait, un dessin de forme libre ou un connecteur. Lecture-écriture.

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

BlackWhiteMode Renvoie ou définit une valeur qui indique comment la forme spécifiée s’affiche lorsque la présentation est affichée en mode noir et blanc. Lecture-écriture.

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

Callout Renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée. S’applique aux objets Shape ou ShapeRange qui représentent des légendes de trait. En lecture seule.

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

Chart Renvoie un objet Chart de l’objet Shape actif. En lecture seule.

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

Child Prend la valeur MsoTrue si la forme est une forme enfant ou si toutes les formes d’une plage sont des formes enfants du même parent. En lecture seule.

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

ConnectionSiteCount Renvoie le nombre de sites de connexion sur la forme spécifiée. En lecture seule.

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

Connector Détermine si la forme spécifiée est un connecteur. En lecture seule.

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

Decorative Définit ou renvoie l’indicateur décoratif de l’objet spécifié. Lecture-écriture.

ActiveWindow.RangeFromPoint.Decorative = msoTrue

Fill Renvoie un objet FillFormat qui contient les propriétés de mise en forme du remplissage appliqué à la forme spécifiée. En lecture seule.

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

Glow Renvoie le format de la lumière pour la forme spécifiée. En lecture seule.

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

GroupItems Renvoie un objet GroupShapes qui représente les formes individuelles dans le groupe spécifié. Utilisez la méthode Item de l’objet GroupShapes pour renvoyer une seule forme à partir du groupe. En lecture seule.

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

HasChart Indique si la forme représentée par l’objet spécifié contient un diagramme. En lecture seule.

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

HasSectionZoom

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

HasSmartArt Renvoie la valeur true si l’objet Shape actif contient un diagramme SmartArt. En lecture seule.

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

HasTable Indique si la forme spécifiée est un tableau. En lecture seule.

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

HasTextFrame Indique si la forme spécifiée contient un cadre de texte. En lecture seule.

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

HorizontalFlip Indique si la forme spécifiée est retournée autour de son axe horizontal. En lecture seule.

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

Id Renvoie un type de données Long qui identifie la forme ou plage de formes. En lecture seule.

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

IsNarration Indique si la plage de formes spécifiée contient une narration. Lecture-écriture.

ActiveWindow.RangeFromPoint.IsNarration = msoTrue

Left Renvoie ou définit une valeur de type Single qui représente la distance en points entre le bord gauche du cadre englobant de la forme et le bord gauche de la diapositive. Lecture-écriture.

ActiveWindow.RangeFromPoint.Left =

Line Renvoie un objet LineFormat qui contient les propriétés de la forme spécifiée la mise en forme du trait. (Pour un trait, l’objet LineFormat représente le trait lui-même ; pour une forme avec une bordure, l’objet LineFormat représente la bordure.) En lecture seule.

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

LockAspectRatio Détermine si la forme spécifiée conserve ses proportions d’origine lors de son redimensionnement. Lecture-écriture.

ActiveWindow.RangeFromPoint.LockAspectRatio = msoTrue

MediaType Renvoie le type de média OLE. En lecture seule.

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

Nodes Renvoie une collection ShapeNodes qui constitue la description géométrique de la forme indiquée. S’applique aux objets Shape qui représentent des dessins en forme libre.

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

Parent Renvoie l’objet parent de l’objet spécifié.

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

ParentGroup Cette propriété renvoie un objet Shape qui représente la forme du parent ordinaire d'une forme enfant ou d'une plage de formes enfant.

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

Reflection Renvoie le format du reflet pour la forme spécifiée. En lecture seule.

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

Rotation Renvoie ou définit le nombre de degrés pour la rotation de la forme spécifiée autour de l’axe des ordonnées (Z). Lecture-écriture.

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

Shadow Renvoie un objet ShadowFormat qui contient les propriétés de mise en forme de l’ombre pour la forme spécifiée. En lecture seule.

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

SmartArt Renvoie un objet SmartArt Microsoft Office qui représente le diagramme SmartArt de l’objet Shape . En lecture seule.

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

SoftEdge Renvoie le format de bordures arrondies pour la plage spécifiée. En lecture seule.

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

Table Renvoie un objet table qui représente un tableau dans une forme ou dans une plage de formes. En lecture seule.

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

Tags Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

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

TextEffect Renvoie un objet TextEffectFormat qui contient les propriétés de mise en forme des effets de texte pour la forme spécifiée. En lecture seule.

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

TextFrame Renvoie un objet TextFrame qui contient les propriétés d’alignement et d’ancrage de la forme spécifiée ou du style de texte du masque.

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

TextFrame2 Renvoie l’objet TextFrame2 associé à l’objet Shape spécifié qui contient les propriétés d’alignement et d’ancrage de la forme spécifiée. En lecture seule.

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

ThreeD Renvoie un objet ThreeDFormat qui contient les propriétés de mise en forme des effets 3D pour la forme spécifiée. En lecture seule.

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

Top Renvoie ou définit une valeur de type Single qui représente la distance entre le bord supérieur du cadre englobant de la plage de formes et le bord supérieur du document. Lecture-écriture.

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

Type Renvoie le type de la ou des formes d'une plage de formes. En lecture seule.

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

VerticalFlip Détermine si la forme spécifiée est retournée autour de l’axe vertical. En lecture seule.

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

Vertices Renvoie les coordonnées des sommets des dessins à main levée spécifiés (et des points de contrôles des courbes de Bézier) sous la forme d’une série de paires de coordonnées. En lecture seule.

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

ShapeRange.ActionSettings Renvoie un objet ActionSettings qui contient des informations sur l’action qui se produit lorsque l’utilisateur clique ou déplace la souris sur la forme ou la plage de texte spécifiée au cours d’un diaporama. En lecture seule.

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

ShapeRange.Adjustments Renvoie un objet Adjustments qui contient les valeurs d’ajustement pour tous les ajustements dans la forme spécifiée. S’applique à tout objet ShapeRange qui représente une forme automatique, un dessin WordArt ou un connecteur. En lecture seule.

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

ShapeRange.AlternativeText Renvoie ou définit le texte de remplacement associé à une forme dans une présentation Web. Lecture-écriture.

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

ShapeRange.AnimationSettings Renvoie un objet AnimationSettings qui représente tous les effets spéciaux que vous pouvez appliquer à l’animation de la forme spécifiée. En lecture seule.

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

ShapeRange.AutoShapeType Cette propriété renvoie ou définit le type de forme pour l’objet ShapeRange spécifié, qui doit représenter une forme automatique autre qu’un trait, un dessin de forme libre ou un connecteur. Lecture-écriture.

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

ShapeRange.BlackWhiteMode Renvoie ou définit une valeur qui indique comment la forme spécifiée s’affiche lorsque la présentation est affichée en mode noir et blanc. Lecture-écriture.

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

ShapeRange.Callout Renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée. S’applique aux objets Shape ou ShapeRange qui représentent des légendes de trait. En lecture seule.

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

ShapeRange.Chart Renvoie l’objet Chart de l’objet ShapeRange actif. En lecture seule.

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

ShapeRange.Child Prend la valeur MsoTrue si la forme est une forme enfant ou si toutes les formes d’une plage sont des formes enfants du même parent. En lecture seule.

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

ShapeRange.ConnectionSiteCount Renvoie le nombre de sites de connexion sur la forme spécifiée. En lecture seule.

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

ShapeRange.Connector Détermine si la forme spécifiée est un connecteur. En lecture seule.

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

ShapeRange.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

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

ShapeRange.Decorative Définit ou renvoie l’indicateur décoratif de l’objet spécifié. Lecture-écriture.

ActiveWindow.RangeFromPoint.Ungroup.Decorative = msoTrue

ShapeRange.Fill Renvoie un objet FillFormat qui contient les propriétés de mise en forme du remplissage appliqué à la forme spécifiée. En lecture seule.

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

ShapeRange.Glow Renvoie le format de la lumière pour la forme spécifiée. En lecture seule.

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

ShapeRange.GroupItems Renvoie un objet GroupShapes qui représente les formes individuelles dans le groupe spécifié. Utilisez la méthode Item de l’objet GroupShapes pour renvoyer une seule forme à partir du groupe. En lecture seule.

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

ShapeRange.HasChart Indique si la plage de formes représentée par l’objet spécifié contient un diagramme. En lecture seule.

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

HasSectionZoom

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

ShapeRange.HasSmartArt Renvoie la valeur true si l’objet ShapeRange actif possède un diagramme SmartArt. En lecture seule.

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

ShapeRange.HasTable Indique si la forme spécifiée est un tableau. En lecture seule.

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

ShapeRange.HasTextFrame Indique si la forme spécifiée contient un cadre de texte. En lecture seule.

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

ShapeRange.HorizontalFlip Indique si la forme spécifiée est retournée autour de son axe horizontal. En lecture seule.

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

ShapeRange.Id Renvoie un type de données Long qui identifie la forme ou plage de formes. En lecture seule.

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

ShapeRange.IsNarration Indique si la plage de formes spécifiée contient une narration. Lecture-écriture.

ActiveWindow.RangeFromPoint.Ungroup.IsNarration = msoTrue

ShapeRange.Left Renvoie ou définit une valeur de type Single qui représente la distance en points entre le bord gauche de la forme la plus à gauche de la plage de formes et le bord gauche de la diapositive. Lecture-écriture.

ActiveWindow.RangeFromPoint.Ungroup.Left =

ShapeRange.Line Renvoie un objet LineFormat qui contient les propriétés de la forme spécifiée la mise en forme du trait. (Pour un trait, l’objet LineFormat représente le trait lui-même ; pour une forme avec une bordure, l’objet LineFormat représente la bordure.) En lecture seule.

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

ShapeRange.LockAspectRatio Détermine si la forme spécifiée conserve ses proportions d’origine lors de son redimensionnement. Lecture-écriture.

ActiveWindow.RangeFromPoint.Ungroup.LockAspectRatio = msoTrue

ShapeRange.MediaType Renvoie le type de média OLE. En lecture seule.

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

ShapeRange.Nodes Renvoie une collection ShapeNodes qui constitue la description géométrique de la forme indiquée. S’applique aux objets ShapeRange qui représentent des dessins en forme libre.

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

ShapeRange.Parent Renvoie l’objet parent de l’objet spécifié.

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

ShapeRange.ParentGroup Cette propriété renvoie un objet Shape qui représente la forme du parent ordinaire d'une forme enfant ou d'une plage de formes enfant.

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

ShapeRange.Reflection Renvoie le format du reflet pour la forme spécifiée. En lecture seule.

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

ShapeRange.Rotation Renvoie ou définit le nombre de degrés pour la rotation de la forme spécifiée autour de l’axe des ordonnées (Z). Lecture-écriture.

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

ShapeRange.Shadow Renvoie un objet ShadowFormat qui contient les propriétés de mise en forme de l’ombre pour les formes spécifiées. En lecture seule.

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

ShapeRange.SmartArt Renvoie le diagramme SmartArt de l’objet ShapeRange . En lecture seule.

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

ShapeRange.SoftEdge Renvoie le format de bordures arrondies pour la plage de formes spécifiée. En lecture seule.

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

ShapeRange.Table Renvoie un objet table qui représente un tableau dans une forme ou dans une plage de formes. En lecture seule.

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

ShapeRange.Tags Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

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

ShapeRange.TextEffect Renvoie un objet TextEffectFormat qui contient les propriétés de mise en forme des effets de texte pour la forme spécifiée. En lecture seule.

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

ShapeRange.TextFrame Renvoie un objet TextFrame qui contient les propriétés d’alignement et d’ancrage de la forme spécifiée ou du style de texte du masque. En lecture seule.

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

ShapeRange.TextFrame2 Renvoie l’objet TextFrame2 associé à l’objet ShapeRange spécifié qui contient les propriétés d’alignement et d’ancrage de la plage de formes spécifiée. En lecture seule.

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

ShapeRange.ThreeD Renvoie un objet ThreeDFormat qui contient les propriétés de mise en forme des effets 3D pour la forme spécifiée. En lecture seule.

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

ShapeRange.Top Renvoie ou définit une valeur de type Single qui représente la distance entre le bord supérieur de la forme la plus en haut de la plage de formes et le bord supérieur du document. Lecture-écriture.

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

ShapeRange.Type Renvoie le type de la ou des formes d'une plage de formes. En lecture seule.

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

ShapeRange.VerticalFlip Détermine si la forme spécifiée est retournée autour de l’axe vertical. En lecture seule.

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

ShapeRange.Vertices Renvoie les coordonnées des sommets des dessins à main levée spécifiés (et des points de contrôles des courbes de Bézier) sous la forme d’une série de paires de coordonnées. En lecture seule.

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

Shapes.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

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

Shapes.Parent Renvoie l’objet parent de l’objet spécifié.

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

Shapes.Placeholders Renvoie une collection Placeholders qui représente la collection de tous les espaces réservés d’une diapositive. En lecture seule.

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