Dimensions images

Bonjour,

j'ai besoin d'aide svp pour réaliser un macro qui dimensionnerai automatiquement les images qui seront insérées dans ma feuille excel.

J'ai trouvé quelques astuces en utilisant l'enregistreur et en cherchant sur le forum mais je n'arrive pas à l'appliquer pour que cette Macro s'applique automatiquement lors de l'insertion d'une image quelconque.

En vous remerciant

Bonjour,

Il n'existe pas de gestion d'insertion d'image donc il te faut exécuter la Sub manuellement (avec un bouton ou autre) :

Sub Test()

    Dim Img As Shape

    'au moment de l'insertion, le shape devient dernier dans la liste
    Set Img = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

    With Img

        .Width = 100 'largeur
        .Height = 100 'hauteur
        .Top = 100 'depuis le bord haut de la feuille
        .Left = 100 'depuis le bord gauche de la feuille
        'à noter que le point de référence de l'image est l'angle supérieur gauche

    End With

End Sub

Merci beaucoup !!!!! Réponse très rapide qui plus est.

Cela fonctionne impeccable bonne journée

Content de t'avoir aidé