Suppresion d'image (VB) Résolu

Question

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 ...


Configuration: Windows XP / Internet Explorer 8.0

m@rina · Answer

Bonjour

Ce que tu veux faire n'est pas clair.

Tu veux supprimer TOUTES les images de la feuille Excel ??

m@rina

m@rina · Answer

Pour supprimer toutes les image :

For Each image In ActiveSheet.Shapes
image.Delete
Next image

m@rina

m@rina · Answer

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

Suppresion d'image (VB)

3 réponses

Discussions similaires

Newsletters