supprimer image

James007

XLDnaute Barbatruc

• 23 Décembre 2008

• #2

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 +

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 23 Décembre 2008

• #3

Re : supprimer image

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Décembre 2008

• #4

Re : supprimer image

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 23 Décembre 2008

• #5

Re : supprimer image

Bonjour
Et merci à vous deux

 

Vote positif 0 Vote négatif