Avec une macro :
Word
Public Sub test()
Dim OldShape As Shape
For Each OldShape In ActiveDocument.Shapes
If OldShape.Type = msoShapeRectangle Then
OldShape.AutoShapeType = msoShapeRoundedRectangle
End If
Next OldShape
End Sub
PowerPoint
Public Sub test()
Dim OldShape As Shape
For Each diapo In ActivePresentation.Slides
For Each OldShape In diapo.Shapes
If OldShape.AutoShapeType = msoShapeRectangle Then
OldShape.AutoShapeType = msoShapeRoundedRectangle
End If
Next
Next
End Sub
