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 72,1% France
Canada 7,7% Canada
Belgique 3,8% Belgique

Total:

117

Pays
018308644
Aujourd'hui: 45
Hier: 386
Cette semaine: 1.374
Semaine dernière: 2.467
Ce mois: 4.036