Powerpoint enlever automatiquement unecouleur
Nico
-
m@rina Messages postés 23939 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23939 Date d'inscription Statut Contributeur 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
A voir également:
- Powerpoint enlever automatiquement unecouleur
- Powerpoint viewer - Télécharger - Présentation
- Insérer video powerpoint - Guide
- Powerpoint 2013 - Télécharger - Présentation
- Enlever pub youtube - Accueil - Streaming
- Powerpoint portrait - Guide
1 réponse
Bonsoir,
Il te faut une macro.
Reste à vérifier si le rouge que j'ai mis correspond au rouge de tes ovales.
m@rina
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