XL 2019 Supprimer toutes les images de la feuille

[netparty]

Bonjour à tous

Je cherche le moyen par macro de supprimer toutes les images sur ma feuille sauf les boutons de commandes.

Auriez-vous une piste pour moi

Je vous remercie d'avance

Bonne soirée à tous

 

[patricktoulon]

Bonsoir
supprimer toutes les images dans une feuille
ben c'est pas compliqué
j'attire ton attention sur le "s" a pictures qui désigne la collection d'image de la feuille active dans cet exemple ci dessous

Sub DeleteAllPicture()
ActiveSheet.Pictures.Delete
End Sub

 

[Phil69970]

Bonjour @netparty @patricktoulon

Je te propose ce fichier
*Clic sur le bouton "NE PAS EFFACER" 😄 😄 😄

@Phil69970

 

[netparty]

Bonjour @Phil69970 @patricktoulon

Merci à vous pour votre aide

passer une bonne journée

 

[netparty]

Bonjour @netparty @patricktoulon

Je te propose ce fichier
*Clic sur le bouton "NE PAS EFFACER" 😄 😄 😄

@Phil69970

Bonjour @Phil69970

Je reviens sur ton fichier,

J'essaye de modifier la macro pour supprimer les images mais uniquement dans une plage données mais cela ne fonctionne pas j'ai essayé ceci :

Dim img As Object

For Each img In Worksheets("SHEMA_BLOC").Range("F5:R217").Shapes
    If img.Type = 13 Then img.Delete
Next

Aurais-tu une piste pour moi

Merci d'avance

 

[patricktoulon]

Bonjour
deja essaie
Dim img As shape
et puis un range n'a pas de membre ".shapes"

Dim img 
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
    If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With

 

[netparty]

Bonjour
deja essaie
Dim img As shape
et puis un range n'a pas de membre ".shapes"

Dim img
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
    If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With

Bonjour @patricktoulon

C'est nickel

Un tout grand merci

Bonne soirée