Suppresion d'image (VB)

Résolu/Fermé

Lentz - 11 oct. 2011 à 14:11
Lentz - 11 oct. 2011 à 15:16

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:

Suppresion d'image (VB)
Image iso - Guide
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Acronis true image - Télécharger - Sauvegarde
Faststone image viewer - Télécharger - Visionnage & Diaporama

3 réponses

Réponse 1 / 3

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
11 oct. 2011 à 14:22

Bonjour

Ce que tu veux faire n'est pas clair.

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

m@rina

Lentz
Modifié par Lentz le 11/10/2011 à 14:29

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 ;)

Réponse 2 / 3

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
11 oct. 2011 à 14:34

Pour supprimer toutes les image :

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

m@rina

Lentz
11 oct. 2011 à 14:41

Merci c'est nickel ;)

Lentz
11 oct. 2011 à 14:43

Ah mince

Petit soucis... ça m'enlève mon boutton de commande pour la macro ... :/

Réponse 3 / 3

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
11 oct. 2011 à 15:09

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

Lentz
11 oct. 2011 à 15:16

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

Bonne journée :)

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Discussions similaires

Newsletters