ShapeRange.Nodes (PowerPoint)

Returns a ShapeNodes collection that represents the geometric description of the specified shape. Applies to ShapeRange objects that represent freeform drawings.

Dim snsNodes As ShapeNodes
Set snsNodes = ActiveWindow.RangeFromPoint.Ungroup.Nodes