Avec une macro :
Â
Public Sub test()
'macro écrite par Guy Moncomble
Dim OldShape As Shape
NewType = msoShapeRectangle
For Each OldShape In ActiveDocument.Shapes
OldShape.Select
If OldShape.Type = msoShapeRectangle Then
OldShape.AutoShapeType = msoShapeRoundedRectangle
End If
Next OldShape
End Sub




