Suppresion d'image (VB)

Résolu
Lentz -  
 Lentz -
Bonjour,

Voici mon soucis,

Je suis entrain de faire une macro de réinitialisation (histoire de supprimer toutes les cellules necessaire) cependant il y a un print screen et je ne vois pas trop comment faire pour l'inclure dans la macro, pour l'instant j'ai ceci

ActiveSheet.Shapes("Picture 186").Select
    Selection.Delete


Mais ça marche une seule fois ...


A voir également:

3 réponses

m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour

Ce que tu veux faire n'est pas clair.

Tu veux supprimer TOUTES les images de la feuille Excel ??

m@rina
0
Lentz
 
J'en ai qu'une, c'est un imprim écran

Dans ma feuille excel j'ai un imprim écran et des cellule c'est tout

Mais si tu as un truc pour supprimer toutes les images de la feuille je prend ;)
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Pour supprimer toutes les image :

For Each image In ActiveSheet.Shapes
image.Delete
Next image


m@rina
0
Lentz
 
Merci c'est nickel ;)
0
Lentz
 
Ah mince

Petit soucis... ça m'enlève mon boutton de commande pour la macro ... :/
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Re..

Tu repères le nom de ton bouton de commande et tu appliques la macro :

Sub sup_images()
For Each Image In ActiveSheet.Shapes
If Image.Name <> "CommandButton1" Then Image.Delete
Next Image
End Sub


Attention il faut respecter les capitales du bouton.

Une autre solution consiste à supprimer tous les objets image sauf les contrôles :

Sub sup_images()
For Each Image In ActiveSheet.Shapes
If Image.Type <> msoOLEControlObject Then Image.Delete
Next Image
End Sub

0
Lentz
 
Je prend le 2ème et c'est nickel, jte remercie ;)

Bonne journée :)
0