Supprimer les objets en VBA

bonjour lionel
de notre cher disparu denis michon :

Sub SupprimeImages()

Dim F As Worksheet, Sh As Shape

Dim B As MsoShapeType

B = msoPicture

For Each F In ThisWorkbook.Worksheets

For Each Sh In F.Shapes

Select Case Sh.Type

Case B

Sh.Delete

End Select

Next

Next

End Sub

HTH

jps



"Lionel B" <Lionel@club-internet.fr> a écrit dans le message de news:
%23l%236EbVkFHA.3568@TK2MSFTNGP10.phx.gbl...

Bonjour
je souhaite supprimer tous les objets "shape" etc. sur une feuille en VBA
Je vous remercie
LB

je souhaite supprimer tous les objets "shape" etc. sur une feuille en VBA

ActiveSheet.DrawingObjects.Delete

AV

Merci à tous les 2
LB

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
%23mKYAsakFHA.576@TK2MSFTNGP15.phx.gbl...

je souhaite supprimer tous les objets "shape" etc. sur une feuille en VBA

ActiveSheet.DrawingObjects.Delete

AV