Sujet Précédent Sujet Suivant

Powerpoint enlever automatiquement unecouleur

Fermé
Nico - Modifié par Nico le 15/11/2010 à 19:07
m@rina Messages postés 20104 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 29 avril 2024 - 15 nov. 2010 à 23:50
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

A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 20104 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 29 avril 2024 11 274
15 nov. 2010 à 23:50
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
0

Discussions similaires

Comment désactiver le mode sécurisé de la Freebox POP.
Cycy -
munstef676 -

11 réponses