Removing Nodes From Shapes

[SyCoDeath]

All,

I have the following code

Private Sub WorksiteShapeDefaults_Click()
    Dim shp As Shape
    Dim vaDefault As Variant
     
    Const sDELIM = "-"
    Const sName As String = "Worksite"
    Const rName As String = "sRange"
    For Each shp In ActiveSheet.Shapes
        If Len(shp.AlternativeText) > 0 Then
            vaDefault = Split(shp.AlternativeText, sDELIM)
            shp.Fill.ForeColor.RGB = RGB(0, 0, 0)
            shp.Width = vaDefault(0)
            shp.Height = vaDefault(1)
            shp.Top = Range(Replace(shp.Name, sName, rName)).Top
            shp.Left = Range(Replace(shp.Name, sName, rName)).Left
        End If
    Next shp
End Sub

I would like to amend this code so that i can remove excess nodes (Edit Points)

I have 140 Shapes which were lines made into rectangles. so they have 4 Edit Points... From time to time i will add extra Edit Points so that the shapes can be shown on a map. The above code will move all of these shapes into their shape range, but i cannot figure out how to remove all but the corner points.

I would be really happy if someone could point me in the right direction.

Thanks in advance...