supprimer image

[MASSJIPE]

Bonjour
J'ai trouvé le code Sub SupImages()
Sheets("Feuil1").DrawingObjects.Delete
End Sub
Mais comment l'adapter pour une zone d'impression sans supprimer les images hors zone d'impression
merci

 

[James007]

Re : supprimer image

Bonjour,

Dans la mesure où les objects sont dessinés au dessus de ta feuille, tu dois tester l'intersection de ta zone excel avec une propriété de ton object ...
par exemple object.TopLeftCell

A +

 

[MASSJIPE]

Re : supprimer image

Bonjour James
Si tu veux peut tu ecrire le code car au niveau vba je connais rien
D'avance merci

 

[BOISGONTIER]

Re : supprimer image

Bonjour,

Sub EffaceMentShapeChamp()
  For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing Then
       s.Delete
    End If
  Next s
End Sub

JB
http://boisgontierjacques.free.fr

 

[MASSJIPE]

Re : supprimer image

Bonjour
Et merci à vous deux