Select the shape to Copy settings and then ctrl click the shape to be changed

Run this (the shapes need the same number of adjuster points)

[VBA]Sub Adjustments()
Dim oSh1 As Shape
Dim oSh2 As Shape
Dim lCount As Long
Set oSh1 = ActiveWindow.Selection.ShapeRange(1)
Set oSh2 = ActiveWindow.Selection.ShapeRange(2)
For lCount = 1 To oSh1.Adjustments.Count
oSh2.Adjustments(lCount) = oSh1.Adjustments(lCount)
Next
End Sub[/VBA]