Comment supprimer toutes les images dans une plage de cellules ?

S'il y a plusieurs images insérées dans votre feuille de calcul et que vous souhaitez en supprimer certaines dans une plage spécifique, comment procéder rapidement ?

Supprimer toutes les images dans une plage de cellules spécifique avec du code VBA

Supprimer toutes les images d'une feuille de calcul ou d'un classeur entier avec Kutools pour Excel

Supprimer toutes les images dans une plage de cellules spécifique avec du code VBA

Voici un code VBA simple qui peut vous aider à supprimer les images dans la plage sélectionnée sans avoir à les supprimer une par une. Veuillez suivre ces étapes :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du module.

Code VBA : Supprimer toutes les images dans une plage de cellules sélectionnée :

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Remarque : Dans le code ci-dessus, A5:B8 est la plage où vous souhaitez supprimer les images. Veuillez la modifier selon vos besoins.

3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et les images dans la plage sélectionnée seront immédiatement supprimées, voir capture d'écran :

Supprimer toutes les images d'une feuille de calcul ou d'un classeur entier avec Kutools pour Excel

Si vous devez supprimer toutes les images d'une feuille de calcul ou d'un classeur, l'utilitaire Supprimer illustrations et objets de Kutools pour Excel peut vous aider.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Cliquez sur Kutools > Supprimer > Supprimer illustrations et objets, voir capture d'écran :

2. Dans la boîte de dialogue Supprimer illustrations et objets, cochez Images dans la section Supprimer, puis choisissez la portée depuis laquelle vous souhaitez supprimer les images sous la section Rechercher dans, voir capture d'écran :

3. Cliquez ensuite sur le bouton OK, et toutes les images seront supprimées de la feuille de calcul ou du classeur entier selon votre sélection.