Comment transformer tous les rectangles en rectangles à bords arrondis ?

Détails
Affichages : 16310

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