Excel 2007 - Effacer images
Résolu/Fermé
Anna
-
23 juin 2009 à 10:16
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 24 juin 2009 à 08:31
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 24 juin 2009 à 08:31
A voir également:
- Excel 2007 - Effacer images
- Liste déroulante excel - Guide
- Formule excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Si et excel - Guide
- Aller à la ligne excel - Guide
6 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
288
23 juin 2009 à 10:44
23 juin 2009 à 10:44
bonjour,
la réponse est sur ce lien!
http://www.commentcamarche.net/forum/affich 2364423 excel vba suppression images shapes
A+
la réponse est sur ce lien!
http://www.commentcamarche.net/forum/affich 2364423 excel vba suppression images shapes
A+
Merci Bidouilleur,
j'avais déjà parcouru ce thread. Effectivement cela se rapproche bcp de mon souci et je peux m'en inspirer mais:
Si j'exécute ce code, il va supprimer également mes deux boutons de commandes placé en première feuille non puisque ce sont des shapes?
Anna
j'avais déjà parcouru ce thread. Effectivement cela se rapproche bcp de mon souci et je peux m'en inspirer mais:
Si j'exécute ce code, il va supprimer également mes deux boutons de commandes placé en première feuille non puisque ce sont des shapes?
Anna
J'ai utilisé ce code ci dessous qui fonctionne très bien. Mais comment faire pour supprimer les shapes sur les autres feuilles? ou carrément sur tout le workbook?
Anna
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("ANEA").Shapes
img.Delete
Next
ENDSUB
Anna
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("ANEA").Shapes
img.Delete
Next
ENDSUB
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
288
23 juin 2009 à 13:54
23 juin 2009 à 13:54
Essaye comme ça!
si tes boutons sont nommés Bouton 1 à ... n
en plaçant un espion sur img.name
tu verras apparaître le nom de l'objet.
et tu pourras aussi ajouter d'autres conditions si nécessaires
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("Feuil1").Shapes
If Left(img.Name, 6) <> "Button" Then
img.Delete
End If
Next
End Sub
si tes boutons sont nommés Bouton 1 à ... n
en plaçant un espion sur img.name
tu verras apparaître le nom de l'objet.
et tu pourras aussi ajouter d'autres conditions si nécessaires
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("Feuil1").Shapes
If Left(img.Name, 6) <> "Button" Then
img.Delete
End If
Next
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
288
24 juin 2009 à 08:31
24 juin 2009 à 08:31
Bojour,
merci de changer le status sur le premier post.
A+
merci de changer le status sur le premier post.
A+