Excel VBA suppression images shapes
Fermé
mimi
-
3 sept. 2006 à 11:43
belairaway Messages postés 1 Date d'inscription dimanche 4 août 2013 Statut Membre Dernière intervention 4 août 2013 - 4 août 2013 à 19:02
belairaway Messages postés 1 Date d'inscription dimanche 4 août 2013 Statut Membre Dernière intervention 4 août 2013 - 4 août 2013 à 19:02
A voir également:
- Excel VBA suppression images shapes
- Forcer suppression fichier - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
9 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
3 sept. 2006 à 12:05
3 sept. 2006 à 12:05
Salut,
Sub efface() Dim img As Object For Each img In Worksheets(1).Shapes 'ou Worksheets("nom").Shapes img.Delete Next End Sublami20j
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
3 sept. 2006 à 13:08
3 sept. 2006 à 13:08
Re,
Utilise plutôt celui là
Utilise plutôt celui là
Option Explicit Option Compare Text 'insensible à la casse de caractères Sub efface() Dim img As Shape For Each img In Worksheets("a").Shapes If img.Name Like "PICTURE*" Then img.Delete End If Next End Sublami20j
AXN
Messages postés
133
Date d'inscription
mercredi 28 novembre 2007
Statut
Membre
Dernière intervention
8 mai 2011
13
Modifié par AXN le 16/07/2010 à 15:47
Modifié par AXN le 16/07/2010 à 15:47
Perso je cherchais à récupérer le nom du dernier graphique créé (il n'y en a qu'un par feuille) pour le manipuler (apparence, données source, etc.)
Avec cette méthode j'y arrive, désormais.
Merci !
Avec cette méthode j'y arrive, désormais.
Merci !
momouiz
Messages postés
30
Date d'inscription
lundi 24 juin 2013
Statut
Membre
Dernière intervention
21 octobre 2013
3
16 juil. 2013 à 11:55
16 juil. 2013 à 11:55
hello lami20j, tu as l'air plutot fort en vba, voila je me permet de poser une question dans le même topic je cherche moi aussi à extraire les images sauf que cette fois ce n'est pas dans un classeur mais dans un document word, j'ai essayé de faire : for each img in DocWOrd.shapes (docword etant mon doc word ^^), mais cela ne marche pas, y a t-il une solution de possible ?
activesheet.Shapes.SelectAll
selection.delete
;)
selection.delete
;)
Pour tester la cellule sous une shape (plus exactement la cellule située sous le coin supérieur gauche), on peut utiliser la propriété TopLeftCell de l'objet shape. À partir de là, savoir si c'est la colonne F est facile.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Dim obj As Shape
For Each obj In ActiveWorkbook.ActiveSheet.Shapes
obj.Delete
Next
Ça devrait faire l'affaire !
For Each obj In ActiveWorkbook.ActiveSheet.Shapes
obj.Delete
Next
Ça devrait faire l'affaire !
Merci beaucoup pour la solution : elle fonctionne impécablement
:0)
personnalisé à mon onglet, cela donne :
Dim img As Object
For Each img In Sheets("travail").Shapes
img.Delete
Next
longue vie au forum !!
Mimi
:0)
personnalisé à mon onglet, cela donne :
Dim img As Object
For Each img In Sheets("travail").Shapes
img.Delete
Next
longue vie au forum !!
Mimi
micaub
Messages postés
32
Date d'inscription
lundi 9 mars 2009
Statut
Membre
Dernière intervention
18 juin 2015
19 mai 2009 à 11:59
19 mai 2009 à 11:59
@zorgloub
J'ai bien peur que la notion d'image dans la colonne F n'ai pas lieu d'être. En effet, une image n'est pas installée dans une cellule, elle est collée par dessus la feuille, puis est positionnée (ce qui donne parfois l'illusion qu'elle se trouve dans une colonne.
Je pense que pour supprimer ces dites images, il faudrait que tu joues dans la macro avec leur position (Top, Left...) afin de déterminer les images qui se situent au niveau de la colonne F.
A moins que quelqu'un ai une autre idée...
A bientôt.
MA
J'ai bien peur que la notion d'image dans la colonne F n'ai pas lieu d'être. En effet, une image n'est pas installée dans une cellule, elle est collée par dessus la feuille, puis est positionnée (ce qui donne parfois l'illusion qu'elle se trouve dans une colonne.
Je pense que pour supprimer ces dites images, il faudrait que tu joues dans la macro avec leur position (Top, Left...) afin de déterminer les images qui se situent au niveau de la colonne F.
A moins que quelqu'un ai une autre idée...
A bientôt.
MA
23 oct. 2008 à 16:25
Un peu tard mais ca fait toujours du bien de trouver ce genre de solution.
Ce code effeca parfaitement bien toutes les images de la feuille mais quel serait le code pour n'effacer que toutes les images se trouvant dans la colonne F, par exemple ?
merci
31 mars 2011 à 14:22
Modifié par belairaway le 4/08/2013 à 19:53
Une idée pour ne pas supprimer les boutons ?
Merci quand même :)