Discussion :

[Lavip]

Bonjour

je voudrais s'avoir comment supprimer des images contenues dans des cellules lorsque je ferme mon classeur avec une commande visual basic sous Excel.

Merci d'avance pour vos réponses.

Lavip.

[cb_60]

Bonjour
Réponse de JB donné sur un autre Forum pour une question similaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub essai()
'JB
Sheets("ta feuille").DrawingObjects.Delete
End Sub

[SilkyRoad]

bonjour

En complément de la réponse de Bruno, pour filtrer les formes type 'image'.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Sh As Shape
 
For Each Sh In Worksheets("Feuil1").Shapes
    If Sh.Type = msoPicture Then Sh.Delete
Next

michel