supprimer uniquement l'image la plus en bas de ma page par macro

[romss82]

bonjour à tous,

je n'arrive pas supprimer par macro l'image la plus en bas de ma feuille excel

j'arrive bien à supprimer toutes les images mais je souhaiterais uniquement supprimer celle la plus en bas

voila ce que j'ai tenté

Sub efface()
Dim img As Object

For Each img In Worksheets(1).Shapes
img.Delete

Next

End Sub


merci de votre aide

 

[Paf]

Re : supprimer uniquement l'image la plus en bas de ma page par macro

Bonjour,

peut être quelque chose comme ceci:

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

A+

 

[DoubleZero]

Re : supprimer uniquement l'image la plus en bas de ma page par macro

Bonjour, romss82, le Forum,

Comme ceci ?

Option Explicit
Sub Image_dernière_supprimer()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        s.Select
    Next
    Selection.Delete
End Sub

A bientôt

P. S. : Bonjour, Paf

 

[phlaurent55]

Re : supprimer uniquement l'image la plus en bas de ma page par macro

Bonjour romss,

voir fichier joint
le code tient compte de la position du bas de l'image

à+
Philippe

Edit: Bonjour OO, Paf