Classe Point (Excel VBA)

Cet objet représente un point dans une série d'un graphique.

Les procédures principales de la classe Point sont Copy, Delete et Select

Set

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

Dim pnt as Point
Set pnt = Charts(1).SeriesCollection(1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Point : Points.Item et Series.Points

For Each

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

Dim pnt() As Double
For Each pnt In Charts(1).SeriesCollection(1).Points
	
Next pnt

Méthodes

Les méthodes principales de la classe Point sont

Copy - Si le point possède une image de remplissage, cette méthode copie l’image dans le presse-papiers.

ActiveCell.Width(1).Copy

Delete - Cette méthode supprime la série à laquelle le point appartient.

ActiveCell.Width(1).Delete

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

ActiveCell.Width(1).Select

Autre Méthodes

ApplyDataLabels - Cette méthode applique des étiquettes de données à un point.

ClearFormats - Cette méthode annule la mise en forme de l'objet.

Paste - Cette méthode colle une image du Presse-papiers en tant que marqueur sur le point sélectionné.

PieSliceLocation - Renvoie la position verticale ou horizontale d’un point sur un élément de graphique, en points, entre le bord supérieur ou gauche de l’objet et le bord supérieur ou gauche de la zone de graphique.

SetProperty -

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

Propriétés

ApplyPictToEnd Cette propriété a la valeur True si une image est appliquée à l'extrémité du point ou de tous les points de la série. Boolean (en lecture/écriture).

ActiveCell.Width(1).ApplyPictToEnd = True

ApplyPictToFront Cette propriété a la valeur True si une image est appliquée devant le point ou tous les points de la série. Boolean (en lecture/écriture).

ActiveCell.Width(1).ApplyPictToFront = True

ApplyPictToSides Cette propriété a la valeur True si une image est appliquée aux côtés du point ou de tous les points de la série. Boolean (en lecture/écriture).

ActiveCell.Width(1).ApplyPictToSides = True

DataLabel Renvoie un objet DataLabel qui représente l’étiquette de données associée au point. En lecture seule.

Dim dtlDataLabel As DataLabel
Set dtlDataLabel = ActiveCell.Width(1).DataLabel

Explosion Renvoie ou définit la valeur d’explosion pour une coupe de graphique en secteurs ou de graphique en anneaux. Renvoie 0 (zéro) s’il n’y a aucune explosion (la pointe de la coupe est dans le centre du graphique). Long (en lecture/écriture).

ActiveCell.Width(1).Explosion = 20

Format Renvoie l’objet ChartFormat . En lecture seule.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveCell.Width(1).Format

Has3DEffect True si un point a une apparence en trois dimensions. Boolean (en lecture/écriture).

ActiveCell.Width(1).Has3DEffect = True

HasDataLabel Cette propriété a la valeur True si le point possède une étiquette de données. Boolean (en lecture/écriture).

ActiveCell.Width(1).HasDataLabel = True

Height Renvoie la hauteur, exprimée en points, de l’objet. En lecture seule.

Dim dblHeight As Double
dblHeight = ActiveCell.Width(1).Height

InvertIfNegative La valeur true si Microsoft Excel inverse le motif de l’élément lorsqu’il correspond à un nombre négatif. Boolean (en lecture/écriture).

ActiveCell.Width(1).InvertIfNegative = True

IsTotal True si le point représente un total. Boolean (en lecture/écriture).

ActiveCell.Width(1).IsTotal = True

Left Renvoie une valeur qui représente la distance en pointsentre le bord gauche de l’objet et le bord gauche de la zone de graphique. En lecture seule.

Dim dblLeft As Double
dblLeft = ActiveCell.Width(1).Left

MarkerBackgroundColor Définit la couleur d’arrière-plan de la marque sous la forme d’une couleur RVB ou renvoie la valeur de l’index de couleur correspondante. Ne s'applique qu'aux graphiques en courbes, en nuages de points et en radar. Long (en lecture/écriture).

Charts("Chart1").SeriesCollection(1).Points(2) .MarkerBackgroundColor = RGB(0,0,255)'blue

MarkerBackgroundColorIndex Cette propriété renvoie ou définit la couleur d'arrière-plan de marque sous forme d'index dans la palette de couleurs actuelle ou sous la forme d'une des constantes XlColorIndex suivantes : xlColorIndexAutomatic ou xlColorIndexNone. Ne s'applique qu'aux graphiques en courbes, en nuages de points et en radar. Long (en lecture/écriture).

ActiveCell.Width(1).MarkerBackgroundColorIndex = xlColorIndexAutomatic

MarkerForegroundColor Définit la couleur de premier plan de la marque sous la forme d’une couleur RVB ou renvoie la valeur de l’index de couleur correspondante. Ne s'applique qu'aux graphiques en courbes, en nuages de points et en radar. Long (en lecture/écriture).

Charts("Chart1").SeriesCollection(1).Points(2) ).MarkerForegroundColor = RGB(0,0,255)'blue

MarkerForegroundColorIndex Cette propriété renvoie ou définit la couleur de premier plan du marqueur sous forme d'index dans la palette de couleurs actuelle ou sous la forme d'une des constantes XlColorIndex suivantes : xlColorIndexAutomatic ou xlColorIndexNone. Ne s'applique qu'aux graphiques en courbes, en nuages de points et en radar. Long (en lecture/écriture).

ActiveCell.Width(1).MarkerForegroundColorIndex = xlColorIndexAutomatic

MarkerSize Cette propriété renvoie ou définit la taille des marques de données, en points. Il peut s'agir d'une valeur comprise entre 2 et 72. Long (en lecture/écriture).

ActiveCell.Width(1).MarkerSize =

MarkerStyle Renvoie ou définit le style de marqueur pour un point ou une série dans un graphique en courbes, à nuages de points ou en radar. Énumération XlMarkerStyle en lecture-écriture.

ActiveCell.Width(1).MarkerStyle = xlMarkerStyleAutomatic

Name Renvoie le nom de l'objet. En lecture seule.

Dim strName As String
strName = ActiveCell.Width(1).Name

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

Dim objParent As Object
Set objParent = ActiveCell.Width(1).Parent

PictureType Cette propriété renvoie ou définit une valeur XlChartPictureType qui représente le mode d’affichage des images sur une colonne ou un graphique à barres.

ActiveCell.Width(1).PictureType = xlStack

PictureUnit2 Cette propriété renvoie ou définit l’unité de chaque image du graphique si la propriété PictureType (TypeImage ) est définie sur xlStackScale (si ce n’est pas le cas, cette propriété est ignorée). Type de données Double en lecture-écriture.

ActiveCell.Width(1).PictureUnit2 =

SecondaryPlot True si le point se trouve dans la section secondaire d’un graphique en secteurs de secteur ou une barre d’un graphique en secteurs. S’applique uniquement aux points des graphiques en secteurs ou en barres de secteur. Boolean (en lecture/écriture).

ActiveCell.Width(1).SecondaryPlot = True

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

ActiveCell.Width(1).Shadow = True

Top Renvoie une valeur qui représente la distance en pointsentre le bord supérieur de l’objet et le bord supérieur de la zone de graphique. En lecture seule.

Dim dblTop As Double
dblTop = ActiveCell.Width(1).Top

Width Renvoie la largeur, exprimée en points, de l’objet. En lecture seule.

Dim dblWidth As Double
dblWidth = ActiveCell.Width(1).Width

Points.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 = ActiveCell.Width.Count

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

Dim objParent As Object
Set objParent = ActiveCell.Width.Parent