Re : supprimer uniquement l'image la plus en bas de ma page par macro
Bonjour,
peut être quelque chose comme ceci:
Code:
Sub efface()
Dim img As Object, Prec As Integer, NomSH As String
Prec = 0
For Each img In Worksheets(1).Shapes
If img.Top > Prec Then
Prec = img.Top
NomSH = img.Name
End If
Next
Worksheets(1).Shapes(NomSH).Delete
End Sub