Classe Shape (Excel 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.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPicture2, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox et Shapes.AddTextEffect

For Each

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

For Each s In Worksheets(1).Shapes 
    If s.HorizontalFlip Then s.Flip msoFlipHorizontal 
    If s.VerticalFlip Then s.Flip msoFlipVertical 
Next

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

Cell with its procedures BottomRightCell et TopLeftCell
Copy with its procedures Copy et CopyPicture
3D with its procedures Model3D et ShapeRange.Model3D
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.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.AddPicture2, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox et Shapes.AddTextEffect

Méthodes

Les méthodes principales de la classe Shape sont

Delete - Cette méthode supprime l'objet.

shp.Delete

Select - Cette méthode sélectionne l'objet.

shp.Select

ShapeRange.Delete - Cette méthode supprime l'objet.

ActiveChart.OLEObjects.ShapeRange.Delete

ShapeRange.Select - Cette méthode sélectionne l'objet.

ActiveChart.OLEObjects.ShapeRange.Select

Autre Méthodes

GroupShapes.Item - Cette méthode renvoie un seul objet d'une collection.

Apply - expression. Application

Cut - Cette méthode coupe l'objet et le place dans le Presse-papiers.

Duplicate - Cette méthode duplique l'objet et renvoie une référence à la nouvelle copie.

Flip - Cette méthode retourne la forme spécifiée horizontalement ou verticalement.

IncrementLeft - Cette méthode déplace la forme spécifiée horizontalement selon le nombre de pointsspécifié.

IncrementRotation - Cette méthode modifie la rotation de la forme spécifiée autour de l’axe z selon le nombre de degrés spécifiés. Utilisez la propriété Rotation pour définir la rotation absolue de la forme.

IncrementTop - Cette méthode déplace la forme spécifiée verticalement selon le nombre de pointsspécifié.

PickUp - Copie la mise en forme de la forme indiquée. La méthode Apply permet d'appliquer à une autre forme la mise en forme copiée.

RerouteConnections - Cette méthode redirige tous les connecteurs attachés à la forme spécifiée; Si la forme spécifiée est un connecteur, elle est redirigée.

ScaleHeight - Met la hauteur de la forme à l’échelle en utilisant un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à leur hauteur actuelle.

ScaleWidth - Met la largeur de la forme à l’échelle en utilisant un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou la taille actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à la largeur actuelle.

SetShapesDefaultProperties - Cette méthode fait de la mise en forme de la forme spécifiée la mise en forme par défaut de la forme.

Ungroup - Dissocie toutes les formes groupées dans la forme ou la plage de formes spécifiée. Elle dissocie les images et les objets OLE d'une forme ou d'une plage de formes spécifiée.

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

ShapeRange.Apply - expression. Application

ShapeRange.Distribute - Cette méthode distribue les formes horizontalement ou verticalement dans la plage des formes spécifiée.

ShapeRange.Duplicate - Cette méthode duplique l'objet et renvoie une référence à la nouvelle copie.

ShapeRange.Flip - Cette méthode retourne la forme spécifiée horizontalement ou verticalement.

ShapeRange.Group - Cette méthode groupe les formes dans la plage spécifiée.

ShapeRange.IncrementLeft - Cette méthode déplace la forme spécifiée horizontalement selon le nombre de pointsspécifié.

ShapeRange.IncrementRotation - Cette méthode modifie la rotation de la forme spécifiée autour de l’axe z selon le nombre de degrés spécifiés. Utilisez la propriété Rotation pour définir la rotation absolue de la forme.

ShapeRange.IncrementTop - Cette méthode déplace la forme spécifiée verticalement selon le nombre de pointsspécifié.

ShapeRange.Item - Cette méthode renvoie un seul objet d'une collection.

ShapeRange.PickUp - Copie la mise en forme de la forme indiquée. La méthode Apply permet d'appliquer à une autre forme la mise en forme copiée.

ShapeRange.Regroup - Cette méthode reforme le groupe auquel la plage de formes spécifiée appartenait auparavant. Renvoie les formes regroupées sous la forme d’un seul objet Shape .

ShapeRange.RerouteConnections - Cette méthode redirige tous les connecteurs attachés à la forme spécifiée; Si la forme spécifiée est un connecteur, elle est redirigée.

ShapeRange.ScaleHeight - Met la hauteur de la forme à l’échelle en utilisant un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à leur hauteur actuelle.

ShapeRange.ScaleWidth - Met la largeur de la forme à l’échelle en utilisant un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou la taille actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à la largeur actuelle.

ShapeRange.SetShapesDefaultProperties - Cette méthode fait de la mise en forme de la forme spécifiée la mise en forme par défaut de la forme.

ShapeRange.Ungroup - Dissocie toutes les formes groupées dans la forme ou la plage de formes spécifiée. Elle dissocie les images et les objets OLE d'une forme ou d'une plage de formes spécifiée.

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

Shapes.Item - Cette méthode renvoie un seul objet d'une collection.

Shapes.SelectAll - Sélectionne toutes les formes de la collection Shapes spécifiée.

Propriétés

GroupShapes.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

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

GroupShapes.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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

GroupShapes.Range Renvoie un objet ShapeRange qui représente un sous-ensemble des formes d'une collection Shapes .

Dim lngIndex() As Long: lngIndex() = 
Dim gss As GroupShapes: Set gss = 
Dim sreRange As ShapeRange
Set sreRange = gss.Range(Index:=lngIndex())

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 objet WordArt ou un connecteur.

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = shp.Adjustments

AlternativeText Cette propriété renvoie ou définit la chaîne de texte descriptive (de remplacement) d’un objet Shape lors de l’enregistrement de l’objet dans une page Web. String en lecture/écriture.

shp.AlternativeText =

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

Worksheets(1).Shapes(3).AutoShapeType = msoShape16pointStar

BackgroundStyle Cette propriété renvoie ou définit le style d'arrière-plan. En lecture/écriture énumération msobackgroundstyleindex.

shp.BackgroundStyle =

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. En lecture/écriture MsoBlackWhiteMode.

Worksheets(1).Shapes(3).BlackWhiteMode = msoBlackWhiteGrayOutline

Callout Renvoie un objet CalloutFormat qui contient des propriétés de mise en forme de légende pour la forme spécifiée. Elle s'applique à un objet Shape qui représente des traits de légende. En lecture seule.

Dim cftCallout As CalloutFormat
Set cftCallout = shp.Callout

Chart Renvoie un objet Chart qui représente le graphique contenu dans la forme. En lecture seule.

Dim chrChart As Chart
Set chrChart = shp.Chart

Child Cette propriété renvoie la valeur msoTrue si la forme spécifiée est une forme enfant ou si toutes les formes contenues dans une plage de formes sont des formes enfants du même parent. Renvoie msoFalse si la forme sélectionnée n’est pas une forme enfant. Renvoie msoTriStateMixed si seule une partie des formes sélectionnées est une forme enfant. En lecture seule MsoTriState.

Dim mtsChild As Office.MsoTriState
mtsChild = shp.Child

ConnectionSiteCount Renvoie le nombre de sites de connexion sur la forme spécifiée. Type de données Long en lecture seule.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = shp.ConnectionSiteCount

Connector Cette propriété a la valeur True si la forme spécifiée est un connecteur. En lecture seule MsoTriState.

Dim mtsConnector As Office.MsoTriState
mtsConnector = shp.Connector

ConnectorFormat Renvoie un objet ConnectorFormat qui contient les propriétés de mise en forme du connecteur. S’applique à un objet Shape qui représente des connecteurs. En lecture seule.

Dim cftConnectorFormat As ConnectorFormat
Set cftConnectorFormat = shp.ConnectorFormat

ControlFormat Renvoie un objet ControlFormat qui contient les propriétés de contrôle Microsoft Excel. En lecture seule.

Dim cftControlFormat As ControlFormat
Set cftControlFormat = shp.ControlFormat

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

shp.Decorative =

Fill Cette propriété renvoie un objet FillFormat pour une forme spécifiée ou un objet ChartFillFormat pour un graphique spécifique qui contient des propriétés de mise en forme de remplissage pour la forme ou le graphique. En lecture seule.

Dim fftFill As FillFormat
Set fftFill = shp.Fill

FormControlType Cette propriété renvoie le type de contrôle Microsoft Excel. En lecture seule XlFormControl.

Dim xfcFormControlType As XlFormControl
xfcFormControlType = shp.FormControlType

Glow Cette propriété renvoie un objet GlowFormat pour une forme spécifiée qui contient des propriétés de mise en forme de lumière pour la forme. En lecture seule.

Dim gftGlow As Office.GlowFormat
Set gftGlow = shp.Glow

GraphicStyle Cette propriété renvoie ou définit une constante MsoGraphicStyleIndex qui représente le style d’un graphique SVG. Lecture-écriture.

ActiveDocument.Shapes(1).GraphicStyle = msoGraphicStylePreset22

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. Cette propriété s'applique à un objet Shape représente les formes groupées. En lecture seule.

7Worksheets(1).Shapes(1) 
Dim gssGroupItems As GroupShapes
Set gssGroupItems = shp.GroupItems

HasChart Cette propriété renvoie une valeur indiquant si une forme contient un graphique. En lecture seule MsoTriState.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = shp.HasChart

HasSmartArt Renvoie une valeur qui indique si un graphique SmartArt est présent sur la forme spécifiée. En lecture seule.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = shp.HasSmartArt

Height Cette propriété renvoie ou définit une valeur unique qui représente la hauteur de l’objet, exprimée en points.

shp.Height =

HorizontalFlip Cette propriété a la valeur True si la forme spécifiée est retournée autour de l'axe horizontal. En lecture seule MsoTriState.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = shp.HorizontalFlip

Hyperlink Renvoie un objet Hyperlink qui représente le lien hypertexte de la forme.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = shp.Hyperlink

ID Cette propriété renvoie une valeur de type Long qui représente le type d'objet spécifié.

Dim lngID As Long
lngID = shp.ID

Left Cette propriété renvoie ou définit une valeur unique qui représente la distance en pointsentre le bord gauche de l’objet et le bord gauche de colonne a (dans une feuille de calcul) ou le bord gauche de la zone de graphique (dans un graphique).

shp.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 une ligne, l’objet LineFormat représente la ligne ; pour une forme avec bordure, l’objet LineFormat représente la bordure.) En lecture seule.

Dim lftLine As LineFormat
Set lftLine = shp.Line

LinkFormat Renvoie un objet LinkFormat qui contient les propriétés de l’objet OLE lié. En lecture seule.

Dim lftLinkFormat As LinkFormat
Set lftLinkFormat = shp.LinkFormat

LockAspectRatio Cette propriété renvoie la valeur True si la forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez. Elle renvoie la valeur False si vous pouvez modifier la hauteur et la largeur de la forme indépendamment l'une de l'autre lorsque vous la redimensionnez. En lecture/écriture MsoTriState.

shp.LockAspectRatio = msoTrue

Locked Cette propriété renvoie ou définit une valeur de type Boolean qui indique si l'objet est verrouillé.

shp.Locked = True

Name Cette propriété renvoie ou définit une valeur de type String qui représente le nom de l'objet.

shp.Name =

Nodes Renvoie une collection ShapeNodes qui constitue la description géométrique de la forme indiquée.

7Worksheets(1).Shapes(1) 
Dim snsNodes As ShapeNodes
Set snsNodes = shp.Nodes

OLEFormat Renvoie un objet OLEFormat qui contient les propriétés de l’objet OLE. En lecture seule.

Dim oleOLEFormat As OLEFormat
Set oleOLEFormat = shp.OLEFormat

OnAction Cette propriété renvoie ou définit le nom d’une macro exécutée lors de la sélection de l’objet spécifié. String en lecture/écriture.

shp.OnAction =

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = shp.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 = shp.ParentGroup

PictureFormat Renvoie un objet PictureFormat qui contient les propriétés de la forme spécifiée. S’applique à un objet Shape qui représente des images ou des objets OLE. En lecture seule.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = shp.PictureFormat

Placement Cette propriété renvoie ou définit une valeur XlPlacement qui représente le mode d’attachement de l’objet aux cellules qui se trouvent en-dessous.

shp.Placement = xlFreeFloating

Reflection Renvoie un objet ReflectionFormat pour une forme spécifiée qui contient des propriétés de mise en forme de la réflexion pour la forme. En lecture seule.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = shp.Reflection

Rotation Cette propriété renvoie ou définit la rotation de la forme, estimée en degrés. String en lecture/écriture.

shp.Rotation =

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

Dim sftShadow As ShadowFormat
Set sftShadow = shp.Shadow

ShapeStyle Cette propriété renvoie ou définit une valeur MsoShapeStyleIndex qui représente le style de forme de la plage de formes. Lecture-écriture.

shp.ShapeStyle =

SmartArt Renvoie un Object qui représente le graphique SmartArt associé à la forme. En lecture seule.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = shp.SmartArt

SoftEdge Cette propriété renvoie un objet SoftEdgeFormat pour une forme spécifiée qui contient des propriétés de mise en forme de bordure arrondie pour la forme. En lecture seule.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = shp.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. En lecture seule.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = shp.TextEffect

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

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = shp.TextFrame

TextFrame2 Renvoie un objet TextFrame2 qui contient la mise en forme du texte de la forme spécifiée. En lecture seule.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = shp.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 = shp.ThreeD

Title Cette propriété renvoie ou définit le titre du texte de remplacement associé à la forme spécifiée. Lecture-écriture.

shp.Title =

Top Cette propriété renvoie ou définit une valeur unique qui représente la distance en pointsentre le bord supérieur de la forme la plus haute dans la plage de formes et le bord supérieur de la feuille de calcul.

shp.Top =

Type Cette propriété renvoie ou définit une valeur MsoShapeType qui représente le type de forme.

Dim mstType As Office.MsoShapeType
mstType = shp.Type

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

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = shp.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. Vous pouvez utiliser le tableau renvoyé par cette propriété comme argument de la méthode AddCurve ou AddPolyline . Type de données Variant en lecture seule.

7Worksheets(1).Shapes(1) 
Dim varVertices As Variant
varVertices = shp.Vertices

Visible Cette propriété renvoie ou définit une valeur MsoTriState qui détermine si l’objet est visible. Lecture-écriture.

shp.Visible =

Width Cette propriété renvoie ou définit une valeur unique qui représente la largeur, exprimée en points, de l’objet.

shp.Width =

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

Dim adjsAdjustments As Adjustments
Set adjsAdjustments = ActiveChart.OLEObjects.ShapeRange.Adjustments

ShapeRange.AlternativeText Cette propriété renvoie ou définit la chaîne de texte descriptive (de remplacement) d’un objet ShapeRange lors de l’enregistrement de l’objet dans une page Web. String en lecture/écriture.

ActiveChart.OLEObjects.ShapeRange.AlternativeText =

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

ActiveChart.OLEObjects.ShapeRange.AutoShapeType = msoShape16pointStar

ShapeRange.BackgroundStyle Cette propriété renvoie ou définit le style d'arrière-plan. En lecture/écriture énumération msobackgroundstyleindex.

ActiveChart.OLEObjects.ShapeRange.BackgroundStyle =

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. En lecture/écriture MsoBlackWhiteMode.

ActiveChart.OLEObjects.ShapeRange.BlackWhiteMode = msoBlackWhiteGrayOutline

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 ShapeRange qui représentent des légendes. En lecture seule.

Dim cftCallout As CalloutFormat
Set cftCallout = ActiveChart.OLEObjects.ShapeRange.Callout

ShapeRange.Chart Renvoie un objet Chart qui représente le graphique contenu dans la plage de formes. En lecture seule.

Dim chrChart As Chart
Set chrChart = ActiveChart.OLEObjects.ShapeRange.Chart

ShapeRange.Child Cette propriété renvoie la valeur msoTrue si la forme spécifiée est une forme enfant ou si toutes les formes contenues dans une plage de formes sont des formes enfants du même parent. Renvoie msoFalse si la forme sélectionnée n’est pas une forme enfant. Renvoie msoTriStateMixed si seule une partie des formes sélectionnées est une forme enfant. En lecture seule MsoTriState.

Dim mtsChild As Office.MsoTriState
mtsChild = ActiveChart.OLEObjects.ShapeRange.Child

ShapeRange.ConnectionSiteCount Renvoie le nombre de sites de connexion sur la forme spécifiée. Type de données Long en lecture seule.

Dim lngConnectionSiteCount As Long
lngConnectionSiteCount = ActiveChart.OLEObjects.ShapeRange.ConnectionSiteCount

ShapeRange.Connector Cette propriété a la valeur True si la forme spécifiée est un connecteur. En lecture seule MsoTriState.

Dim mtsConnector As Office.MsoTriState
mtsConnector = ActiveChart.OLEObjects.ShapeRange.Connector

ShapeRange.ConnectorFormat Renvoie un objet ConnectorFormat qui contient les propriétés de mise en forme du connecteur. S’applique aux objets ShapeRange qui représentent des connecteurs. En lecture seule.

Dim cftConnectorFormat As ConnectorFormat
Set cftConnectorFormat = ActiveChart.OLEObjects.ShapeRange.ConnectorFormat

ShapeRange.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Count

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

ActiveChart.OLEObjects.ShapeRange.Decorative =

ShapeRange.Fill Cette propriété renvoie un objet FillFormat pour une forme spécifiée ou un objet ChartFillFormat pour un graphique spécifique qui contient des propriétés de mise en forme de remplissage pour la forme ou le graphique. En lecture seule.

Dim fftFill As FillFormat
Set fftFill = ActiveChart.OLEObjects.ShapeRange.Fill

ShapeRange.Glow Cette propriété renvoie un objet GlowFormat pour une plage de formes spécifiée qui contient des propriétés de mise en forme de lumière pour la plage de formes. En lecture seule.

Dim gftGlow As Office.GlowFormat
Set gftGlow = ActiveChart.OLEObjects.ShapeRange.Glow

ShapeRange.GraphicStyle Cette propriété renvoie ou définit une constante MsoGraphicStyleIndex qui représente le style d’une plage de formes contenant un ou plusieurs graphiques SVG. Lecture-écriture.

ActiveChart.OLEObjects.ShapeRange.GraphicStyle =

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. Cette propriété s'applique à un objet ShapeRange qui représente les formes groupées. En lecture seule.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveChart.OLEObjects.ShapeRange.GroupItems

ShapeRange.HasChart Cette propriété renvoie une valeur indiquant si une plage de formes contient un graphique. En lecture seule MsoTriState.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveChart.OLEObjects.ShapeRange.HasChart

ShapeRange.Height Cette propriété renvoie ou définit une valeur unique qui représente la hauteur de l’objet, exprimée en points.

ActiveChart.OLEObjects.ShapeRange.Height =

ShapeRange.HorizontalFlip Cette propriété a la valeur True si la forme spécifiée est retournée autour de l'axe horizontal. En lecture seule MsoTriState.

Dim mtsHorizontalFlip As Office.MsoTriState
mtsHorizontalFlip = ActiveChart.OLEObjects.ShapeRange.HorizontalFlip

ShapeRange.ID Renvoie une valeur de type long qui représente le type de l’objet spécifié.

Dim lngID As Long
lngID = ActiveChart.OLEObjects.ShapeRange.ID

ShapeRange.Left Cette propriété renvoie ou définit une valeur unique qui représente la distance en pointsentre le bord gauche de l’objet et le bord gauche de colonne a (dans une feuille de calcul) ou le bord gauche de la zone de graphique (dans un graphique).

ActiveChart.OLEObjects.ShapeRange.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 une ligne, l’objet LineFormat représente la ligne ; pour une forme avec bordure, l’objet LineFormat représente la bordure.) En lecture seule.

Dim lftLine As LineFormat
Set lftLine = ActiveChart.OLEObjects.ShapeRange.Line

ShapeRange.LockAspectRatio Cette propriété renvoie la valeur True si la forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez. Elle renvoie la valeur False si vous pouvez modifier la hauteur et la largeur de la forme indépendamment l'une de l'autre lorsque vous la redimensionnez. En lecture/écriture MsoTriState.

ActiveChart.OLEObjects.ShapeRange.LockAspectRatio = msoTrue

ShapeRange.Name Cette propriété renvoie ou définit une valeur de type String qui représente le nom de l'objet.

ActiveChart.OLEObjects.ShapeRange.Name =

ShapeRange.Nodes Renvoie une collection ShapeNodes qui constitue la description géométrique de la forme indiquée.

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveChart.OLEObjects.ShapeRange.Nodes

ShapeRange.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Parent

ShapeRange.ParentGroup Cette propriété 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 = ActiveChart.OLEObjects.ShapeRange.ParentGroup

ShapeRange.PictureFormat Renvoie un objet PictureFormat qui contient les propriétés de la forme spécifiée. Elle s'applique à un objet ShapeRange qui représente les images ou les objets OLE. En lecture seule.

Dim pftPictureFormat As PictureFormat
Set pftPictureFormat = ActiveChart.OLEObjects.ShapeRange.PictureFormat

ShapeRange.Reflection Renvoie un objet ReflectionFormat pour une plage de formes spécifiée qui contient des propriétés de mise en forme de la réflexion pour la plage de formes. En lecture seule.

Dim rftReflection As Office.ReflectionFormat
Set rftReflection = ActiveChart.OLEObjects.ShapeRange.Reflection

ShapeRange.Rotation Cette propriété renvoie ou définit la rotation de la forme, estimée en degrés. String en lecture/écriture.

ActiveChart.OLEObjects.ShapeRange.Rotation =

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

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveChart.OLEObjects.ShapeRange.Shadow

ShapeRange.ShapeStyle Cette propriété renvoie ou définit une valeur MsoShapeStyleIndex qui représente le style de forme de la plage de formes. Lecture-écriture.

ActiveChart.OLEObjects.ShapeRange.ShapeStyle =

ShapeRange.SoftEdge Renvoie un objet SoftEdgeFormat pour une plage de formes spécifiée qui contient des propriétés de mise en forme de bordure arrondie pour la plage de formes. En lecture seule.

Dim sefSoftEdge As Office.SoftEdgeFormat
Set sefSoftEdge = ActiveChart.OLEObjects.ShapeRange.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. En lecture seule.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActiveChart.OLEObjects.ShapeRange.TextEffect

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

Dim tfeTextFrame As TextFrame
Set tfeTextFrame = ActiveChart.OLEObjects.ShapeRange.TextFrame

ShapeRange.TextFrame2 Renvoie un objet TextFrame2 qui contient la mise en forme du texte pour la plage de formes spécifiée. En lecture seule.

Dim tf2TextFrame2 As TextFrame2
Set tf2TextFrame2 = ActiveChart.OLEObjects.ShapeRange.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 = ActiveChart.OLEObjects.ShapeRange.ThreeD

ShapeRange.Title Cette propriété renvoie ou définit le titre du texte de remplacement associé à la plage de formes spécifiée. Lecture-écriture.

ActiveChart.OLEObjects.ShapeRange.Title =

ShapeRange.Top Cette propriété renvoie ou définit une valeur unique qui représente la distance en pointsentre le bord supérieur de la forme la plus haute dans la plage de formes et le bord supérieur de la feuille de calcul.

ActiveChart.OLEObjects.ShapeRange.Top =

ShapeRange.Type Renvoie une valeur MsoShapeType qui représente le type de forme.

Dim mstType As Office.MsoShapeType
mstType = ActiveChart.OLEObjects.ShapeRange.Type

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

Dim mtsVerticalFlip As Office.MsoTriState
mtsVerticalFlip = ActiveChart.OLEObjects.ShapeRange.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. Vous pouvez utiliser le tableau renvoyé par cette propriété comme argument de la méthode AddCurve ou AddPolyline . Type de données Variant en lecture seule.

Dim varVertices As Variant
varVertices = ActiveChart.OLEObjects.ShapeRange.Vertices

ShapeRange.Visible Cette propriété renvoie ou définit une valeur MsoTriState qui détermine si l’objet est visible. Lecture-écriture.

ActiveChart.OLEObjects.ShapeRange.Visible =

ShapeRange.Width Cette propriété renvoie ou définit une valeur unique qui représente la largeur, exprimée en points, de l’objet.

ActiveChart.OLEObjects.ShapeRange.Width =

Shapes.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveChart.Shapes.Count

Shapes.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveChart.Shapes.Parent

Shapes.Range Renvoie un objet ShapeRange qui représente un sous-ensemble des formes de la collection Shapes.

Dim lngIndex() As Long: lngIndex() = 
Dim sreRange As ShapeRange
Set sreRange = ActiveChart.Shapes.Range(Index:=lngIndex())