Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui34
Hier1471
Cette semaine34
Ce mois40279
Total depuis 200410830813

6
visiteurs actuellement en ligne