Comment supprimer toutes les images d'un seul coup ?

Détails
Affichages : 31298

Avec une macro :

 

Word

 Sub SupprimerImages()
' supprime tous les dessins hors texte
For Each oShape In ActiveDocument.Shapes
oShape.Delete
Next
' supprime maintenant les objets de la couche texte
For Each oShape In ActiveDocument.InlineShapes
oShape.Delete
Next
End Sub

 

PowerPoint

Dans PowerPoint, il faut faire attention, parce que tous les objets sont des objets graphiques, et il faut donc préciser le type des objets à supprimer, sinon tout sera supprimé !

La macro suivante supprime toutes les photos et images :

Sub SupprimerImages2()
Dim diapo as Slide, x, nb
For Each diapo In ActivePresentation.Slides
nb = diapo.Shapes.Count
    For x = nb To 1 Step -1
    If diapo.Shapes(x).Type = 13 Then diapo.Shapes(x).Delete
    Next
Next
End Sub