XL 2019 Bouton commande macron

Lucio

XLDnaute Junior
Bonjour,

Quel code puis-je mettre pour effacer toutes les images ou photos qui se trouvent sur tout mon classeur excel? J'ai un bouton de commande sur ma page d'accueil et j'aimerais effacer les photos sur mes 100 onglets. De plus, serait il possible d'y intégrer un user form demandant de confirmer la suppression ?
Merci de votre aide
 

Lucio

XLDnaute Junior
En fait j'arrive à effacer le contenu d'une feuille active avec un bouton de commande sur cette même feuille par le code suivant :

Private Sub CommandButton2_Click()
Dim Obj As Shape

'Boucle sur les formes contenues dans la feuille
For Each Obj In Worksheets("2").Shapes
If Obj.Type = msoPicture Then Obj.Delete
Next Obj
End Sub

Par contre, j'aimerais pouvoir effacer toutes les images du classeur depuis une seule feuille (ex: bouton de commande sur feuille 1 qui efface les feuilles 2 à100) et la possibilité d'avoir un message box qui demande d'être sûr de la suppression.
 

Discussions similaires

Haut Bas