Supprimer toutes les images d'une feuille excel

Vous avez un document Excel, qui comporte du texte dans des cellules, mais aussi des images insérées par-ci par-là dans votre document. Vous voulez ne conserver que le texte, et donc faire disparaître les documents autres. Pour supprimer une image, vous faites un clic droit dessus, puis vous cliquez sur 'couper'. Mais si vous avez plusieurs images, beaucoup d'images, vous pouvez faire appel à une macro pour gagner du temps.

 

Étapes de réalisation

1 - Fournitures

Excel

Vous devez pour cela appeler le logiciel Virtual Basic.
Vous appuyez en même temps sur 'ATL' et 'F11'.

2 - Dans la colonne de gauche, vous faites un clic droit sur une feuille vierge, puis vous descendez sur 'Insertion' et vous cliquez sur 'Module'.     

3 - Dans la fenêtre qui s'ouvre, vous collez le script ci-dessous:

Sub suprimer_les_images()

Dim x
Dim curshapes As Shape
For Each curShape In ActiveSheet.Shapes
Set x = Intersect(curShape.BottomRightCell, Rows("1:1"))
If x Is Nothing Then curShape.Delete
Next curShape
End Sub     

4 - Vous Validez en cliquant sur 'FICHIER' puis sur 'Fermer et retourner à Microsoft Excel'     

5 - De retour sur votre document Excel, vous appuyez simultanément sur 'ALT' et 'F8'.     

6 - Dans la nouvelle fenêtre vous sélectionnez la macro 'supprimer les images' et vous appuyez sur le bouton 'Exécuter".     

7 - Vous images ont disparu de la feuille Excel.

http://congomag-hightech.blogspot.com/2013/09/comment-supprimer-toutes-les-images.html