Class Point (PowerPoint VBA)

The class Point represents a single point in a series in a chart.

The main procedures of class Point are Copy, Delete and Select

Set

To use a Point class variable it first needs to be instantiated, for example

Dim pnt as Point
Set pnt = ActiveWindow.RangeFromPoint.Nodes(1).Points(Index:=1)

Point class variables can be set using the Points.Item procedure.

Themes

Some procedures in this class have been grouped together in themes and are described on separate theme pages

Data with its procedures ApplyDataLabels, DataLabel and HasDataLabel
Format with its procedures ClearFormats, Format, Height, MarkerBackgroundColor, MarkerBackgroundColorIndex, MarkerForegroundColor, MarkerForegroundColorIndex, MarkerStyle and Width
Picture with its procedures PictureType and PictureUnit2

Methods

These are the main methods of the Point class

Copy - If the point has a picture fill, copies the picture to the Clipboard.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Copy

Delete - Deletes the object.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Delete

Select - Selects the object.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Select

Other Methods

PieSliceLocation - Returns the vertical or horizontal position, in points, of a point on a chart item from the top or left edge of the object to the top or left edge of the chart area.

Dim dblPieSliceLocation As Double
dblPieSliceLocation = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).PieSliceLocation(loc:=xlHorizontalCoordinate)

SetProperty -

Dim strId As String: strId = 
ActiveWindow.RangeFromPoint.Nodes(1).Points(1).SetProperty Id:=strId, Value:=

Properties

ApplyPictToEnd true if a picture is applied to the end of the point or all points in the series.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).ApplyPictToEnd = True

ApplyPictToFront true if a picture is applied to the front of the point or all points in the series.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).ApplyPictToFront = True

ApplyPictToSides true if a picture is applied to the sides of the point or all points in the series.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).ApplyPictToSides = True

Explosion returns or sets the explosion value for a pie-chart or doughnut-chart slice.

ActivePresentation.Slides(1).Shapes(1).Nodes(1).Points(1).Explosion = 20

InvertIfNegative true if Microsoft Word inverts the pattern in the object when it corresponds to a negative number.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).InvertIfNegative = True

IsTotal true if the point represents a total.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).IsTotal = True

Left returns a value that represents the distance, in points, from the left edge of the object to the left edge of the chart area.

Dim dblLeft As Double
dblLeft = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Left

MarkerSize returns or sets the data-marker size, in points.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).MarkerSize =

Name returns the object name.

Dim strName As String
strName = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Name

Parent returns the parent for the specified object. Read-only object.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Parent

SecondaryPlot true if the point is in the secondary section of either a pie-of-pie chart or a bar-of-pie chart.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).SecondaryPlot = True

Shadow returns or sets a value that indicates whether the object has a shadow.

ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Shadow = True

Top returns a value that represents the distance, in points, from the top edge of the object to the top edge of the chart area.

Dim dblTop As Double
dblTop = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Top

Points.Count returns the number of objects in the collection.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Nodes(1).Points.Count

Points.Parent returns the parent for the specified object. Read-only object.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes(1).Points.Parent