Point.Format (PowerPoint)

Returns the line, fill, and effect formatting for the object.

Dim cftFormatted As ChartFormat
Set cftFormatted = ActiveWindow.RangeFromPoint.Nodes(1).Points(1).Format