Avec une macro !
Il faut faire une boucle sur toutes les formes (Shapes) du document, éventuellement poser une condition sur le type de forme si l'on ne souhaite par exemple ne modifier que les cercles ou que les rectangles, puis donner une couleur de fond, et une couleur pour le contour.
Les macros ci-dessous appliquent un fond jaune pâle et un contour bleu à tous les formes rectangles et un fond rouge et un contour jaune pâle à toutes les formes ovales.
Word
Sub forme_couleurs()
'macro écrite par m@rina
Dim mondoc
Dim forme As Shape
Set mondoc = ActiveDocument
For Each forme In mondoc.Shapes
If forme.AutoShapeType = msoShapeRectangle Then
forme.Fill.ForeColor.RGB = RGB(255, 255, 200)
forme.Line.ForeColor = vbBlue
End If
If forme.AutoShapeType = msoShapeOval Then
forme.Fill.ForeColor = vbRed
forme.Line.ForeColor.RGB = RGB(255, 255, 200)
End If
Next forme
PowerPoint
Sub forme_couleurs()
'macro écrite par m@rina
Dim pres
Dim forme As Shape
Set pres = ActivePresentation
For Each diapo In pres.Slides
For Each forme In diapo.Shapes
If forme.AutoShapeType = msoShapeRectangle Then
forme.Fill.ForeColor.RGB = RGB(255, 255, 200)
forme.Line.ForeColor.RGB = RGB(68, 114, 196)
End If
If forme.AutoShapeType = msoShapeOval Then
forme.Fill.ForeColor.RGB = RGB(255, 0, 0)
forme.Line.ForeColor.RGB = RGB(255, 255, 200)
End If
Next forme
Next diapo
End Sub
