Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

effacer shapes vba

exceldu13

XLDnaute Nouveau
bonjour,

je voudrai effacer toute les shapes à l'ouverture d'un onglet. je précise que le shape sur trouve dans l'onglet en question.


merci de votre aide
 
G

Guest

Guest
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
 

Odesta

XLDnaute Impliqué
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
 

Odesta

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
6
Affichages
142
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…