enlever des images sur une feuille

[Bettegga]

Bonjour ou bonsoir, à tous

J'ai une feuille excel dans la quelle je fais des copier coller dont la source est une page web.

J récupere des images de petites tailles mais qui sont nombreuses et comme je copie colle chaque jour, mes "intrus" s'accumulent et je voudrais faire un nettoyage et donc les enlever de ma feuille XL.

quand j'enregistre une macro voici ce que cela donne :


Sub Macro2()
'
' Macro2 Macro
'
'

'
ActiveSheet.Shapes("Picture 44967").Select
Selection.Delete
End Sub




je voudrais arriver à ne pas spécifier le numero mais au contraire faire une itération pour ainsi netooyer et nelever toutes ces "pictures"


merci de votre collaboration et de votre aide

 

[MichelXld]

Re : enlever des images sur une feuille

bonjour

tu peux tester

Sub supprimerFormesAutomatiques()
    Dim Obj As Shape
    
    For Each Obj In ActiveSheet.Shapes
       Obj.Delete
    Next Obj
End Sub

bon week end
MichelXld

 

[Bettegga]

Re : enlever des images sur une feuille

Merci Michel,

c'est exactement ce que je cherchais.


Je te souhaite un excellent week end

Bettegga