Point.Format (Word)

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

Dim pnt As Point: Set pnt =  
Dim cftFormatted As ChartFormat
Set cftFormatted = pnt.Format