Powerpoint enlever automatiquement unecouleur
Nico
-
m@rina Messages postés 27782 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27782 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai une presentation sous powerpoint 2007 avec des tas de forme ovale rouge dessus pour surligner certaines choses.
Est il possible de supprimer en une seule fois tous les objets qui ont une certaine forme ou une certaine couleur?
En gros je voudrais l'equivalent de la fonction rechercher/remplacer mais pour une forme ou une couleur au lieu d'un mot.
Merci beaucoup
J'ai une presentation sous powerpoint 2007 avec des tas de forme ovale rouge dessus pour surligner certaines choses.
Est il possible de supprimer en une seule fois tous les objets qui ont une certaine forme ou une certaine couleur?
En gros je voudrais l'equivalent de la fonction rechercher/remplacer mais pour une forme ou une couleur au lieu d'un mot.
Merci beaucoup
1 réponse
-
Bonsoir,
Il te faut une macro.
Sub supp_oval_rouge() 'macro écrite par m@rina Dim mapresentation As Object Dim diapo As Object, forme As Object Set mapresentation = ActivePresentation.Slides For Each diapo In mapresentation For Each forme In diapo.Shapes If forme.AutoShapeType = msoShapeOval Then If forme.Fill.ForeColor.RGB = RGB(255, 0, 0) Then forme.Delete End If End If Next forme Next diapo End Sub
Reste à vérifier si le rouge que j'ai mis correspond au rouge de tes ovales.
m@rina
