Classe ChartObject (Excel VBA)

Cet objet représente un graphique incorporé dans une feuille de calcul.

Les procédures principales de la classe ChartObject sont Activate, Copy, Delete, Select, ChartObjects.Add, ChartObjects.Copy, ChartObjects.Delete et ChartObjects.Select

Set

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

Dim chro as ChartObject
Set chro = ActiveSheet.ChartObjects(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ChartObject : Duplicate, ChartObjects.Item, ChartObjects.Add, Chart.ChartObjects, ChartObjects.Duplicate et Worksheet.ChartObjects

For Each

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

Dim chro As ChartObject
For Each chro In ActiveSheet.ChartObjects()
	
Next chro

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, CopyPicture, ChartObjects.Copy et ChartObjects.CopyPicture
Print with its procedures PrintObject et ChartObjects.PrintObject

Méthodes

Les méthodes principales de la classe ChartObject sont

Activate - Active le graphique sélectionné.

ActiveSheet.ChartObjects(1).Activate

Delete - Cette méthode supprime l'objet.

ActiveSheet.ChartObjects(1).Delete

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

ActiveSheet.ChartObjects(1).Select

ChartObjects.Add - Cette méthode crée un graphique incorporé.

Dim dblLeft As Double: dblLeft = 
Dim dblTop As Double: dblTop = 
Dim dblWidth As Double: dblWidth = 
Dim dblHeight As Double: dblHeight = 
Dim chro As ChartObject
Set chro = ActiveSheet.ChartObjects.Add(Left:=dblLeft, Top:=dblTop, Width:=dblWidth, Height:=dblHeight)

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

ActiveSheet.ChartObjects.Delete

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

ActiveSheet.ChartObjects.Select

Autre Méthodes

BringToFront - Cette méthode amène l'objet au premier plan de l'ordre de plan.

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.

SendToBack - Cette méthode place l'objet à l'arrière-plan de l'ordre de plan.

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

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

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

Propriétés

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

Dim chrChart As Chart
Set chrChart = ActiveSheet.ChartObjects(1).Chart

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

ActiveSheet.ChartObjects(1).Height =

Index Cette propriété renvoie une valeur de type Long qui représente le numéro d'index de l'objet au sein de la collection d'objets similaires.

Dim lngIndex As Long
lngIndex = ActiveSheet.ChartObjects(1).Index

Left Cette propriété renvoie ou définit une valeur de type double 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).

ActiveSheet.ChartObjects(1).Left = 50

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

ActiveSheet.ChartObjects(1).Locked = True

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

ActiveSheet.ChartObjects(1).Name =

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

Dim objParent As Object
Set objParent = ActiveSheet.ChartObjects(1).Parent

Placement Renvoie ou définit une valeur de type Variant contenant une constante XlPlacement qui représente le mode d'attachement de l'objet aux cellules.

ActiveSheet.ChartObjects(1).Placement = xlFreeFloating

ProtectChartObject Cette propriété a la valeur True si la structure du graphique incorporé ne peut pas être déplacée, redimensionnée ou supprimée par le biais de l'interface utilisateur. Boolean (en lecture/écriture).

ActiveSheet.ChartObjects(1).ProtectChartObject = True

RoundedCorners Cette propriété renvoie la valeur True si le graphique incorporé possède des coins arrondis. Boolean (en lecture/écriture).

ActiveSheet.ChartObjects(1).RoundedCorners = True

Shadow Cette propriété renvoie ou définit une valeur de type Boolean qui détermine si la police ou l'objet est ombré.

ActiveSheet.ChartObjects(1).Shadow = True

ShapeRange Renvoie un objet ShapeRange qui représente l'objet ou les objets spécifiés. En lecture seule.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveSheet.ChartObjects(1).ShapeRange

Top Cette propriété renvoie ou définit une valeur de type double qui représente la distance en pointsentre le bord supérieur de l'objet et le haut de ligne 1 (dans une feuille de calcul) ou le haut de la zone de graphique (dans un graphique).

ActiveSheet.ChartObjects(1).Top =

Visible Cette propriété renvoie ou définit une valeur de type Boolean qui détermine si l'objet est visible. Lecture-écriture.

ActiveSheet.ChartObjects(1).Visible = True

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

ActiveSheet.ChartObjects(1).Width =

ZOrder Cette propriété renvoie la position de l'objet dans la superposition. Type de données Long en lecture seule.

Dim lngZOrder As Long
lngZOrder = ActiveSheet.ChartObjects(1).ZOrder

ChartObjects.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 = ActiveSheet.ChartObjects.Count

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

ActiveSheet.ChartObjects.Height =

ChartObjects.Left Cette propriété renvoie ou définit une valeur de type double 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).

ActiveSheet.ChartObjects.Left =

ChartObjects.Locked Cette propriété renvoie ou définit une valeur de type Boolean qui indique si les objets sont verrouillés.

ActiveSheet.ChartObjects.Locked = True

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

Dim objParent As Object
Set objParent = ActiveSheet.ChartObjects.Parent

ChartObjects.Placement Cette propriété renvoie ou définit une valeur de type Variant , contenant une constante XlPlacement qui représente la manière dont les objets sont attachés aux cellules en dessous.

ActiveSheet.ChartObjects.Placement = xlFreeFloating

ChartObjects.ProtectChartObject Cette propriété a la valeur True si la structure du graphique incorporé ne peut pas être déplacée, redimensionnée ou supprimée par le biais de l'interface utilisateur. Boolean (en lecture/écriture).

ActiveSheet.ChartObjects.ProtectChartObject = True

ChartObjects.ShapeRange Renvoie un objet ShapeRange qui représente l'objet ou les objets spécifiés. En lecture seule.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveSheet.ChartObjects.ShapeRange

ChartObjects.Top Cette propriété renvoie ou définit une valeur de type double qui représente la distance en pointsentre le bord supérieur de l'objet et le haut de ligne 1 (dans une feuille de calcul) ou le haut de la zone de graphique (dans un graphique).

ActiveSheet.ChartObjects.Top =

ChartObjects.Visible Cette propriété renvoie ou définit une valeur de type Boolean qui détermine si l'objet est visible. Lecture-écriture.

ActiveSheet.ChartObjects.Visible = True

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

ActiveSheet.ChartObjects.Width =