Classe Point (Word 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

For Each

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

Dim shpn As ShapeNode: Set shpn = 
Dim pnt As Point
For Each pnt In shpn.Points
	With pnt
		
	End With
Next pnt

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures ClearFormats, Format, MarkerBackgroundColor, MarkerBackgroundColorIndex, MarkerForegroundColor, MarkerForegroundColorIndex et MarkerStyle

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.

7 
pnt.Copy

Delete - Cette méthode supprime l'objet.

7 
pnt.Delete

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

7 
pnt.Select

Autre Méthodes

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

7 
pnt.ApplyDataLabels

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.

7 
Dim dblPieSliceLocation As Double
dblPieSliceLocation = pnt.PieSliceLocation(loc:=xlHorizontalCoordinate)

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.

7 
pnt.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.

7 
pnt.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.

7 
pnt.ApplyPictToSides = True

DataLabel Cette propriété renvoie l’étiquette de données associée au point.

7 
Dim dtlDataLabel As DataLabel
Set dtlDataLabel = pnt.DataLabel

Explosion Renvoie ou définit la valeur d’explosion pour une coupe de graphique en secteurs ou de graphique en anneaux.

7 
pnt.Explosion =

Has3DEffect True si un point a une apparence en trois dimensions.

7 
pnt.Has3DEffect = True

HasDataLabel Cette propriété a la valeur True si le point possède une étiquette de données.

7 
pnt.HasDataLabel = True

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

7 
Dim dblHeight As Double
dblHeight = pnt.Height

InvertIfNegative La valeur true si Microsoft Word inverse le motif de l'objet lorsqu'il correspond à un nombre négatif.

7 
pnt.InvertIfNegative = True

IsTotal True si le point représente un total.

7 
pnt.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.

7 
Dim dblLeft As Double
dblLeft = pnt.Left

MarkerSize Cette propriété renvoie ou définit la taille des marques de données, en points.

7 
pnt.MarkerSize =

Name Renvoie le nom de l'objet.

7 
Dim strName As String
strName = pnt.Name

Parent Renvoie le parent de l'objet spécifié.

7 
Dim objParent As Object
Set objParent = pnt.Parent

PictureType Renvoie ou définit une valeur qui indique comment les images sont affichées sur un histogramme ou un graphique à barres.

7 
pnt.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).

7 
pnt.PictureUnit2 =

SecondaryPlot True si le point se trouve dans la section secondaire d'un graphique en secteurs de secteur ou un graphique en barres de secteur.

7 
pnt.SecondaryPlot = True

Shadow Cette propriété renvoie ou définit une valeur qui indique si l'objet est ombré.

7 
pnt.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.

7 
Dim dblTop As Double
dblTop = pnt.Top

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

7 
Dim dblWidth As Double
dblWidth = pnt.Width

Points.Count Renvoie le nombre d'objets dans la collection.

Dim pnts As Points: Set pnts =  
Dim lngCount As Long
lngCount = pnts.Count

Points.Parent Renvoie le parent de l'objet spécifié.

Dim pnts As Points: Set pnts =  
Dim objParent As Object
Set objParent = pnts.Parent