Organiser des images avec VBA

Bonjour à tous,

Je suis à la recherche d'une méthode afin de

1- sélectionner l'ensemble des images de mon onglet (nombre d'images variable)

2- les redimensionner afin qu'elle fassent toutes la même largeur

3- les positionner les unes en dessous des autres

En vous remerciant par avance

Slts

Bonjour,

Une piste à adapter :

Sub Arranger()

    Dim S As Shape
    Dim Largeur As Integer
    Dim Hauteur As Integer
    Dim Pos As Long
    Dim Marge As Integer
    Dim Espace As Integer

    Largeur = 250
    Hauteur = 250

    Espace = 10
    Marge = 10

    For Each S In ActiveSheet.Shapes

        S.Top = Pos
        S.Left = Marge
        S.Width = Largeur
        S.Height = Hauteur

        Pos = Hauteur + Pos + Espace

    Next S

End Sub

Au top !!

Merci beaucoup !!