Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
If image.Type = msoPicture Then Set s = image
Next image
s.Delete
End Sub
Option Explicit
Sub test()
Dim image As Shape, s As Shape
For Each image In ActiveSheet.Shapes
If image.Type = msoPicture Then Set s = image
Next image
If Not s Is Nothing Then s.Delete
End Sub
Le tableau commençant en A1, si l'on désire supprimer l'objet qui se trouve sur la dernière ligne en colonne B :
Code:
Sub Sup()
Dim deb As Range, a$, s As Shape
Set deb = [A1] 'début du tableau, à adapter
a = deb.End(xlDown)(, 2).Address
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = a Then s.Delete: Exit Sub
Next
End Sub