Set myOval = ActiveDocument.Shapes(1)
With myOval.WrapFormat
.Type = wpsWrapSquare
.Side = wpsWrapBoth
.DistanceTop = InchesToPoints(0.1)
.DistanceBottom = InchesToPoints(0.1)
.DistanceLeft = InchesToPoints(0.1)
.DistanceRight = InchesToPoints(0.1)
End With