Classe Shape (Word VBA)

La classe Shape représente un objet dans la couche dessin, tel qu’une forme automatique, une forme libre, un objet OLE, un contrôle ActiveX ou une image.

Les procédures principales de la classe Shape sont CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Delete, Select, ShapeRange.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddCanvas, Shapes.AddChart2, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect et Shapes.AddWebVideo

Set

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

Dim shp as Shape
Set shp = ActiveDocument.Background

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Shape : CanvasItems, ShapeRange.CanvasItems, InlineShape.GroupItems, GroupItems, ShapeRange.GroupItems, CanvasShapes.Item, CanvasShapes.AddCallout, CanvasShapes.AddConnector, CanvasShapes.AddCurve, CanvasShapes.AddLabel, CanvasShapes.AddLine, CanvasShapes.AddPicture, CanvasShapes.AddPolyline, CanvasShapes.AddShape, CanvasShapes.AddTextbox, CanvasShapes.AddTextEffect, Document.Background, FreeformBuilder.ConvertToShape, GroupShapes.Item, Hyperlink.Shape, InlineShape.ConvertToShape, Duplicate, ParentGroup, ShapeRange.Item, ShapeRange.ParentGroup, ShapeRange.Group, Shapes.Item, Shapes.AddCallout, Shapes.AddCurve, Shapes.AddLabel, Shapes.AddLine, Shapes.AddPicture, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddTextbox, Shapes.AddTextEffect, Shapes.Add3DModel, Shapes.AddChart2, Shapes.AddOLEControl, Shapes.AddOLEObject, Shapes.AddSmartArt, Shapes.AddWebVideo, Shapes.AddCanvas, TextFrame.Parent, Window.RangeFromPoint, CanvasShapes.Range, GroupShapes.Range, Range.ShapeRange, Selection.ShapeRange, Selection.ChildShapeRange, Ungroup, ShapeRange.Ungroup, ShapeRange.Duplicate, Shapes.Range, Chart.Shapes, Document.Shapes et HeaderFooter.Shapes

For Each

Voici un exemple de traitement des éléments Shape dans une collection

Dim shpCanvasItem As Shape
For Each shpCanvasItem In CanvasItems
	
Next shpCanvasItem

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

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

Méthodes

Les méthodes principales de la classe Shape sont

Delete - Supprime le nœud spécifié de la forme.

ActiveDocument.Background.Delete

Select - Sélectionne la forme spécifiée.

ActiveDocument.Background.Select

ShapeRange.Delete - Supprime la plage de formes spécifiée.

Dim sre As ShapeRange: Set sre =  
sre.Delete

ShapeRange.Select - Sélectionne la plage de formes spécifiée.

Dim sre As ShapeRange: Set sre =  
sre.Select

Autre Méthodes

CanvasShapes.BuildFreeform - Crée une forme libre.

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

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

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

ShapeRange.Distribute - Répartit uniformément les formes dans la plage de formes spécifiée.

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

Shapes.BuildFreeform - Crée une forme libre.

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

Propriétés

CanvasShapes.Count Renvoie un type long qui représente le nombre de formes de canevas dans la collection spécifiée.

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

CanvasShapes.Parent Renvoie un Object qui représente l'objet parent de l'objet CanvasShapes spécifié.

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

GroupShapes.Count Renvoie un type long qui représente le nombre de formes dans la collection.

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

GroupShapes.Parent Renvoie un objet Object qui représente l'objet parent de l'objet GroupShapes spécifié.

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

Adjustments Renvoie un objet Adjustments qui contient les valeurs d’ajustement pour tous les ajustements dans l’objet Shape spécifié qui représente une forme automatique ou un objet WordArt.

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

AlternativeText Cette propriété renvoie ou définit le texte de remplacement associé à une forme dans une page Web.

ActiveDocument.Background.AlternativeText =

Anchor Renvoie un objet Range qui représente la plage d’ancrage de la forme spécifiée ou la plage de formes.

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

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 ou une forme libre.

ActiveDocument.Background.AutoShapeType =

Callout Cette propriété renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée.

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

CanvasItems Renvoie un objet CanvasShapes qui représente une collection de formes dans une zone de dessin.

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

Chart Renvoie un objet Chart qui représente un graphique dans la collection de formes dans un document.

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

Child True si la forme est une forme enfant ou si toutes les formes dans une plage de formes sont des formes enfants du même parent.

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

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

ActiveDocument.Background.Decorative =

Fill Renvoie un objet FillFormat qui contient les propriétés de mise en forme du remplissage pour la forme spécifiée.

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

Glow Renvoie un objet GlowFormat qui représente la mise en forme de luminosité pour une forme.

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

GroupItems Renvoie un objet GroupShapes qui représente les formes individuelles dans le groupe spécifié.

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

HasChart True si la forme spécifiée est un graphique.

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

HasSmartArt Renvoie la valeur true s’il existe un diagramme SmartArt présent sur la forme.

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

Height Renvoie ou définit la hauteur (en points) de la forme spécifiée.

ActiveDocument.Background.Height =

HorizontalFlip Indique qu'une forme a été retournée horizontalement.

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

Hyperlink Renvoie un objet Hyperlink qui représente le lien hypertexte associé à un objet Shape .

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

ID Renvoie le type d'identification pour la forme spécifiée.

Dim lngID As Long
lngID = ActiveDocument.Background.ID

Left Cette propriété renvoie ou définit une valeur unique qui représente la position horizontale, exprimée en points, de la forme spécifiée ou d’une plage de formes.

ActiveDocument.Background.Left =

LeftRelative Cette propriété renvoie ou définit une valeur unique qui représente la position gauche relative d’une forme.

ActiveDocument.Background.LeftRelative =

Line Renvoie un objet LineFormat qui contient les propriétés de mise en forme du trait pour la forme spécifiée.

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

LockAnchor Cette propriété a la valeur True si l'ancrage d'un objet Shape est verrouillé dans la plage d'ancrage.

ActiveDocument.Background.LockAnchor =

LockAspectRatio MsoTrue si la forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez.

ActiveDocument.Background.LockAspectRatio =

Model3D Renvoie un objet Model3DFormat qui contient les propriétés Model3D.

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

Name Cette propriété renvoie ou définit le nom de l'objet spécifié.

ActiveDocument.Background.Name =

Nodes Renvoie une collection ShapeNodes qui représente la description géométrique de la forme spécifiée.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet Shape spécifié.

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

ParentGroup Renvoie un objet Shape qui représente la forme parente commune d’une forme enfant ou d’une plage de formes enfants.

Dim shpParentGroup As Shape
Set shpParentGroup = ActiveDocument.Background.ParentGroup

PictureFormat Renvoie un objet PictureFormat qui contient les propriétés de l’objet spécifié.

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

Reflection Renvoie un objet ReflectionFormat qui représente la mise en forme de la réflexion pour une forme.

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

RelativeHorizontalPosition Spécifie la position horizontale relative d’une forme.

ActiveDocument.Background.RelativeHorizontalPosition = wdRelativeHorizontalPositionCharacter

RelativeHorizontalSize Cette propriété renvoie ou définit une constante WdRelativeVerticalSize qui représente l’objet auquel une plage de formes est relative.

ActiveDocument.Background.RelativeHorizontalSize = wdRelativeHorizontalSizeInnerMarginArea

RelativeVerticalPosition Spécifie la position verticale relative d'une forme.

ActiveDocument.Background.RelativeVerticalPosition = wdRelativeVerticalPositionBottomMarginArea

RelativeVerticalSize Cette propriété renvoie ou définit une constante WdRelativeVerticalSize qui représente la taille verticale relative d’une forme.

ActiveDocument.Background.RelativeVerticalSize = wdRelativeVerticalSizeBottomMarginArea

Rotation Cette propriété renvoie ou définit le nombre de degrés de que rotation de la forme spécifiée autour de l'axe z.

ActiveDocument.Background.Rotation =

Script Renvoie un objet script qui représente un bloc de script ou de code pour une image sur une page Web.

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

Shadow Renvoie un objet ShadowFormat qui représente la mise en forme ombrée pour la forme spécifiée.

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

SmartArt Renvoie un objet SmartArt qui fournit un moyen de travailler avec le graphique SmartArt associé à la forme spécifiée.

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

SoftEdge Renvoie un objet SoftEdgeFormat qui représente la mise en forme de bordure arrondie pour une forme.

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

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.

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

TextFrame Renvoie un objet TextFrame qui contient le texte de la forme spécifiée.

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

TextFrame2 Renvoie un objet TextFrame2 qui contient le texte de la forme spécifiée.

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

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

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

Title Cette propriété renvoie ou définit une chaîne qui contient un titre pour la forme spécifiée.

ActiveDocument.Background.Title =

Top Cette propriété renvoie ou définit la position verticale de la forme spécifiée ou d'une plage de formes en points.

ActiveDocument.Background.Top =

TopRelative Cette propriété renvoie ou définit une valeur unique qui représente la position supérieure relative d’une forme.

ActiveDocument.Background.TopRelative =

Type Renvoie le type de forme insérée.

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

VerticalFlip Cette propriété a la valeur True si la forme spécifiée est retournée autour de l’axe vertical.

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActiveDocument.Background.VerticalFlip

Vertices Renvoie les coordonnées des sommets du dessin de la forme libre spécifiée (et les points de contrôle pour les courbes de Bézier) sous forme de paires de coordonnées.

Dim varVertices As Variant
varVertices = ActiveDocument.Background.Vertices

Width Cette propriété renvoie ou définit la largeur, exprimée en points, de la forme spécifiée.

ActiveDocument.Background.Width =

ShapeRange.Adjustments Renvoie un objet Adjustments qui contient les valeurs d’ajustement pour tous les ajustements dans l’objet ShapeRange spécifié qui représente une forme automatique ou un objet WordArt.

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

ShapeRange.AlternativeText Cette propriété renvoie ou définit le texte de remplacement associé à une forme dans une page Web.

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

ShapeRange.Anchor Renvoie un objet Range qui représente la plage d’ancrage de la plage de formes spécifiée.

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

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 ou une forme libre.

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

ShapeRange.Callout Cette propriété renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée.

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

ShapeRange.CanvasItems Renvoie un objet CanvasShapes qui représente une collection de formes dans une zone de dessin.

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

ShapeRange.Child True si la forme est une forme enfant ou si toutes les formes dans une plage de formes sont des formes enfants du même parent.

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

ShapeRange.Count Renvoie un type long qui représente le nombre de formes dans la collection.

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

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

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

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

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

ShapeRange.Glow Renvoie un objet GlowFormat qui représente la mise en forme de luminosité pour une plage de formes.

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

ShapeRange.GroupItems Renvoie un objet GroupShapes qui représente les formes individuelles dans le groupe spécifié.

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

ShapeRange.Height Cette propriété renvoie ou définit la hauteur de la plage de formes spécifiée.

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

ShapeRange.HorizontalFlip Indique qu'une plage de formes a été retournée horizontalement.

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

ShapeRange.Hyperlink Renvoie un objet Hyperlink qui représente le lien hypertexte associé à l’objet ShapeRange spécifié.

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

ShapeRange.ID Renvoie le type d'identification pour la plage de formes.

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

ShapeRange.Left Cette propriété renvoie ou définit une valeur unique qui représente la position horizontale, exprimée en points, de la plage de formes spécifiée.

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

ShapeRange.LeftRelative Cette propriété renvoie ou définit une valeur unique qui représente la position gauche relative d’une plage de formes.

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

ShapeRange.Line Renvoie un objet LineFormat qui contient les propriétés de mise en forme du trait pour la plage de formes spécifiée.

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

ShapeRange.LockAnchor True si l'ancrage de l'objet ShapeRange spécifié est verrouillé à la plage d'ancrage.

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

ShapeRange.LockAspectRatio MsoTrue si la forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez.

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

ShapeRange.Model3D Renvoie un objet Model3DFormat qui contient les propriétés Model3D.

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

ShapeRange.Name Cette propriété renvoie ou définit le nom de l'objet spécifié.

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

ShapeRange.Nodes Renvoie une collection ShapeNodes qui représente la description géométrique de la forme spécifiée.

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

ShapeRange.Parent Renvoie un Object qui représente l'objet parent de l'objet ShapeRange spécifié.

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

ShapeRange.ParentGroup Renvoie un objet Shape qui représente la forme parente commune d’une plage de formes.

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

ShapeRange.PictureFormat Renvoie un objet PictureFormat qui contient les propriétés de la plage de formes spécifiée pour la mise en forme de l’image.

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

ShapeRange.Reflection Renvoie un objet ReflectionFormat qui représente la mise en forme de la réflexion pour une plage de formes.

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

ShapeRange.RelativeHorizontalPosition Spécifie la position horizontale relative d’une plage de formes.

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

ShapeRange.RelativeHorizontalSize Cette propriété renvoie ou définit une constante WdRelativeHorizontalSize qui représente l’objet auquel une plage de formes est relative.

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

ShapeRange.RelativeVerticalPosition Spécifie la position verticale relative d'une plage de formes.

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

ShapeRange.RelativeVerticalSize Cette propriété renvoie ou définit une constante WdRelativeVerticalSize qui représente l’objet auquel une plage de formes est relative.

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

ShapeRange.Rotation Cette propriété renvoie ou définit le nombre de degrés de que rotation de la forme spécifiée autour de l'axe z.

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

ShapeRange.Shadow Renvoie un objet ShadowFormat qui représente la mise en forme ombrée pour la forme spécifiée.

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

ShapeRange.SoftEdge Renvoie un objet SoftEdgeFormat qui représente la mise en forme de bordure arrondie pour une plage de formes.

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

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.

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

ShapeRange.TextFrame Renvoie un objet TextFrame qui contient le texte de la plage de formes spécifiée.

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

ShapeRange.TextFrame2 Renvoie un objet TextFrame2 qui contient le texte de la plage de formes spécifiée.

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

ShapeRange.ThreeD Renvoie un objet ThreeDFormat qui contient les propriétés de mise en forme 3D pour la plage de formes spécifiée.

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

ShapeRange.Title Cette propriété renvoie ou définit une chaîne qui contient un titre pour les formes dans la plage de formes spécifiée.

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

ShapeRange.Top Cette propriété renvoie ou définit la position verticale de la forme spécifiée ou d'une plage de formes en points.

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

ShapeRange.TopRelative Cette propriété renvoie ou définit une valeur unique qui représente la position supérieure relative d’une plage de formes.

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

ShapeRange.Type Renvoie le type de forme.

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

ShapeRange.VerticalFlip Cette propriété a la valeur True si la forme spécifiée est retournée autour de l’axe vertical.

Dim sre As ShapeRange: Set sre =  
Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = sre.VerticalFlip

ShapeRange.Vertices Renvoie les coordonnées des sommets du dessin de la forme libre spécifiée (et les points de contrôle pour les courbes de Bézier) sous forme de paires de coordonnées.

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

ShapeRange.Width Cette propriété renvoie ou définit la largeur, exprimée en points, des formes dans la plage.

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

Shapes.Count Renvoie un type long qui représente le nombre de formes dans la collection.

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

Shapes.Parent Renvoie un Object qui représente l'objet parent de l'objet Shapes spécifié.

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