supprimer images et boutons

[Olivier]

Bonjour et bonne année à vous toutes et tous,

bon, j'ai déjà un problème à vous soumettre:
j'aimerais une 'tite macro qui me supprime toutes mes images et tous les boutons qu'il y a dans mon classeur parce que c'est vraiment trop volumineux en espace mémoire.

Merci de votre aide
@+
Olivier

 

[michel]

bonsoir Olivier

tu peux tester cette macro

Sub Menage()
Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).DrawingObjects.Delete
Next i
End Sub


bonne soiree
MichelXld

 

[Olivier]

Merci Michel et bonne année

Comment que ça a l'air facile pour toi, déjà ça marche nickel ta macro et en plus sans voir toutes les feuilles défiler à toute vitesse, c'est vraiment classe. Et en prime, le code, il est trop classe je trouve. Quand je pense que je m'embête avec des sheets("Feuil"&i).Activate et compagnie, je vais étudier ça de près.

@+
Olivier