Recherche

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(255255200)
forme.Line.ForeColor = vbBlue
End If
If forme.AutoShapeType = msoShapeOval Then
forme.Fill.ForeColor = vbRed
forme.Line.ForeColor.RGB = RGB(255255200)
End If
Next forme

Statistiques

France 73,9% France
Canada 7,7% Canada
États-Unis d'Amérique 4,1% États-Unis d'Amérique

Total:

94

Pays
018290605
Aujourd'hui: 7
Hier: 306
Cette semaine: 1.682
Semaine dernière: 1.764
Ce mois: 3.182