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

romss82 · 8 Septembre 2015

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 · 8 Septembre 2015

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

A+

DoubleZero · 8 Septembre 2015

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

Bonjour, romss82, le Forum,

Comme ceci ?

Code:

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 · 8 Septembre 2015

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

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

romss82

Guest

Paf

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

Discussions similaires

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

romss82

Guest

Paf

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency