effacer shapes vba

pierrejean

XLDnaute Barbatruc

• 18 Août 2011

• #2

Re : effacer shapes vba

Bonjour exceldu13

Code:

Private Sub Worksheet_Activate()
For n = ActiveSheet.Shapes.Count To 1 Step -1
  ActiveSheet.Shapes(n).Delete
Next n
End Sub

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 18 Août 2011

• #3

Re : effacer shapes vba

Bonjour,

Question maintes fois traitées dont au moins une fois il y a 2 jours. faire une recherche sur le forum.

A+

[Edit]Hello Pierre-Jean

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 18 Août 2011

• #4

Re : effacer shapes vba

Bonjour à tous

Bon, forcement je suis pas le plus rapide !

Code:

Sub auto_open()


Dim mes_formes As Object

For Each mes_formes In ActiveSheet.Shapes

mes_formes.Delete

Next

End Sub

Cdt

Olivier

 

Vote positif 0 Vote négatif

E

exceldu13

XLDnaute Nouveau

• 18 Août 2011

• #5

Re : effacer shapes vba

bonjour,

merci pour vos réponses elles marchent impeccable

problème résolu grâce à vous.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Août 2011

• #6

Re : effacer shapes vba

Bonjour à tous,

il y a également ceci :

Code:

Feuil1.DrawingObjects.Delete

bon après midi
@+

 

Vote positif 0 Vote négatif

E

exceldu13

XLDnaute Nouveau

• 18 Août 2011

• #7

Re : effacer shapes vba

encore plus simple... c'est celui que je préfère pour mon code.

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 18 Août 2011

• #8

Re : effacer shapes vba

Re

J'ai vu une fois, un fichier de 4 mégas, alors qu'il était vide ! En apparence du moins : une forme réctangulaire, qui contenait du texte, écrasée dans tous les sens et réduite à l'état de point, dans le croisement des volets vertical et horizontal, se retrouvait dupliquée par le programme vba.
Lorsque le fichier commenca à devenir trop gros, je me suis mis à l'éplucher (c'est ce fichier qui m'a "lancé" dans la programmation VBA) et à tout virer : 4 mégas plus tard, je comprennais d'où venait le problème.

Donc les shapes invisible : c'est le mal !

Fin de l'histoirette d'olivier



Cdt

EDIT : un peu trop de fautes

 

Vote positif 0 Vote négatif