Comment supprimer toutes les images d'un fichier ?
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le mardi 18 octobre 2011 18:38
- Affichages : 3545
Avec une macro :
Sub SupprimerImages()
'macro écrite par Anacoluthe
' 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
