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
