Supprimer le remplissage de formes [Résolu]

Messages postés
2
Date d'inscription
mardi 24 août 2010
Statut
Membre
Dernière intervention
26 août 2010
- - Dernière réponse : agora78
Messages postés
2
Date d'inscription
mardi 24 août 2010
Statut
Membre
Dernière intervention
26 août 2010
- 26 août 2010 à 21:47
Bonjour,

Dans un document word 2007, je souhaite pouvoir sélectionner toutes les formes (dans mon document c'est de simples rectangles sans aucun remplissage) et changer le remplissage. Avec le code suivant :

Sub test()
Set myRange = ActiveDocument.Range
myRange.ShapeRange.Fill.Solid
myRange.ShapeRange.Fill.ForeColor = 100
End Sub

j'arrive sans problème à les sélectionner et à mettre le remplissage souhaité. Mon problème est de pouvoir ensuite faire une macro qui fait l'inverse. Elle partirait d'un document avec des rectangles pleins et colorés pour donner des rectangles sans remplissage, comme on peut le faire manuellement si on va dans l'onglet "remplissage de forme" de "outils de dessin" et que l'on sélectionne "aucun remplissage". J'ai bien cherché mais je dois avouer que je n'ai rien trouvé. Auriez vous une idée ?
Merci d'avance.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
mardi 24 août 2010
Statut
Membre
Dernière intervention
26 août 2010
3
Merci
Bonsoir,
Après de nombreux tests j'ai enfin trouvé ce que je cherchais. Il faut faire la macro suivante :

Sub test()
Set myRange = ActiveDocument.Range
myRange.ShapeRange.Fill.Visible = False
End Sub

Elle supprime le remplissage de mes rectangles.

Merci pour vos suggestions.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de agora78
Messages postés
3248
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
30 août 2019
46
0
Merci
Bonsoir
Je ne pense pas que c'est possible de faire l'inverse mais tu peux remplir la forme avec la
couleur blanc
Commenter la réponse de cs_ShayW
Messages postés
401
Date d'inscription
mercredi 19 avril 2006
Statut
Membre
Dernière intervention
6 juin 2011
0
Merci
Bonjour,

Je n'ai pas beaucoup programmé sur word, mais en cherchant dans la doc msdn je trouve cela : Line

Essai donc avec Line à la place de Fill

Sub test()
Set myRange = ActiveDocument.Range
myRange.ShapeRange.Line
myRange.ShapeRange.Line.ForeColor = 100
End Sub 


Bonne Prog
Commenter la réponse de lesdis