Klasse Point (Word VBA)

Die Klasse Point stellt einen einzelnen Punkt einer Datenreihe in einem Diagramm dar.

Die wichtigste Prozeduren der Klasse Point sind Copy, Delete und Select

For Each

Hier ist ein Beispiel für die Verarbeitung der Point -Elemente in einer Sammlung

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

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

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

Methoden

Die Hauptmethoden der Klasse Point sind

Copy - Wenn der Punkt eine Bildfüllung aufweist, wird das Bild in die Zwischenablage kopiert.

7 
pnt.Copy

Delete - Löscht das Objekt.

7 
pnt.Delete

Select - Markiert das Objekt.

7 
pnt.Select

Andere Methoden

ApplyDataLabels - Wendet Datenbeschriftungen auf einen Datenpunkt an.

7 
pnt.ApplyDataLabels

PieSliceLocation - Gibt die vertikale oder horizontale Position eines Punkts auf einem Diagrammelement in Punktenvon der oberen oder linken Kante des Objekts zum oberen oder linken Rand des Diagrammbereichs zurück.

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

Eigenschaften

ApplyPictToEnd True, wenn eine Grafik dem Ende des Punktes oder aller Punkte der Datenreihe zugeordnet wird.

7 
pnt.ApplyPictToEnd = True

ApplyPictToFront True, wenn eine Grafik dem Anfang des Punkts oder allen Punkten der Datenreihe zugeordnet wird.

7 
pnt.ApplyPictToFront = True

ApplyPictToSides True, wenn den Seiten des Punktes oder aller Punkte der Datenreihe eine Grafik zugeordnet wird.

7 
pnt.ApplyPictToSides = True

DataLabel Gibt die Datenbeschriftung zurück, die dem Punkt zugeordnet ist.

7 
Dim dtlDataLabel As DataLabel
Set dtlDataLabel = pnt.DataLabel

Explosion Gibt den Explosionswert für ein Kreisdiagramm- oder Ringdiagrammsegment zurück, oder legt diesen fest.

7 
pnt.Explosion =

Has3DEffect True, wenn ein Punkt dreidimensional dargestellt wird.

7 
pnt.Has3DEffect = True

HasDataLabel True, wenn der Datenpunkt eine Datenbeschriftung enthält.

7 
pnt.HasDataLabel = True

Height Gibt die Höhe des Objekts in Punktzurück.

7 
Dim dblHeight As Double
dblHeight = pnt.Height

InvertIfNegative True, Wenn Microsoft Word das Muster im Objekt invertiert, wenn es eine negative Zahl entspricht.

7 
pnt.InvertIfNegative = True

IsTotal True, wenn der Punkt einen Gesamtwert darstellt.

7 
pnt.IsTotal = True

Left Gibt einen Wert zurück, der den Abstand (in Punkt) vom linken Rand des Objekts zum linken Rand des Diagrammbereichs darstellt.

7 
Dim dblLeft As Double
dblLeft = pnt.Left

MarkerSize Gibt die Größe der Datenpunktmarkierung in Punkt zurück.

7 
pnt.MarkerSize =

Name Gibt den Objektnamen zurück.

7 
Dim strName As String
strName = pnt.Name

Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

7 
Dim objParent As Object
Set objParent = pnt.Parent

PictureType Gibt einen Wert zurück, der die Art der Anzeige von Grafiken in Säulen- oder Balkendiagrammen angibt, oder legt diesen Wert fest.

7 
pnt.PictureType = xlStack

PictureUnit2 Gibt oder die Einheit für jede Grafik des Diagramms festgelegt, wenn die PictureType -Eigenschaft auf XlStackScale festgelegt ist (ist das nicht der Fall, wird diese Eigenschaft ignoriert).

7 
pnt.PictureUnit2 =

SecondaryPlot True, Wenn der Punkt im sekundären Abschnitt ein Kreis-aus-Kreis-Diagramm oder einem Balken-aus-Kreis-Diagramm befindet.

7 
pnt.SecondaryPlot = True

Shadow Zurückgeben oder festlegen ein Werts, das angibt, ob das Objekt einen Schatten aufweist.

7 
pnt.Shadow = True

Top Gibt einen Wert zurück, der den Abstand (in Punkt) vom oberen Rand des Objekts zum oberen Rand des Diagrammbereichs darstellt.

7 
Dim dblTop As Double
dblTop = pnt.Top

Width Gibt die Breite des Objekts in Punktzurück.

7 
Dim dblWidth As Double
dblWidth = pnt.Width

Points.Count Gibt die Anzahl der Objekte in der Auflistung zurück.

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

Points.Parent Gibt das übergeordnete Element für das angegebene Objekt zurück.

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