user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

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.

La macro ci-dessous appliquer 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. 

 

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
End Sub

Statistiques

Aujourd'hui961
Hier2616
Cette semaine9212
Ce mois47458
Total depuis 200411092447

22
visiteurs actuellement en ligne