Bonjour,

actuellement je suis sur un projet qui demande l'affichage d'image.Une fois recupéré dans une feuille excel , les images sont placés et redimensionner.Moi ce que je recherche a faire c'est recupérer la hauteur et la largeur des images recupérés.Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
poscol = 550
 i = 2
 
 Do
    For j = 10 To 12
        ActiveSheet.Pictures.Insert(Cells(i, j).Value).Select
        With Selection
            .ShapeRange.Top = poslig
            .ShapeRange.Left = poscol
            .ShapeRange.LockAspectRatio = msoTrue
            .ShapeRange.Height = 190#
        End With
 
        poscol = poscol + 275
        m = ActiveSheet.Pictures(Cells(i, j).Value).Selection.Width
    Next j
        poscol = 550
        poslig = poslig + 275
     i = i + 1
 Loop Until Cells(i, 3).Value = ""
Merci