[VBA-E] probleme au niveau de l'objet picture

Version imprimable

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:

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

Si tu as inséré tes images avec la Boîte à outils Commandes, ce sont des Shapes. Auquel cas, teste ça
Code:

1 2 3 4 5 6 Dim Limage as Object For Each Limage In ActiveSheet.Shapes MsgBox Limage.Name ActiveSheet.Shapes(Limage.Name).Height = 225 ActiveSheet.Shapes(Limage.Name).Width = 225 Next
En espérant que ça t'aiguille vers une solution ;)
A+

Citation:
Envoyé par ouskel'n'or
Si tu as inséré tes images avec la Boîte à outils Commandes, ce sont des Shapes. Auquel cas, teste ça
Code:

1 2 3 4 5 6 Dim Limage as Object For Each Limage In ActiveSheet.Shapes MsgBox Limage.Name ActiveSheet.Shapes(Limage.Name).Height = 225 ActiveSheet.Shapes(Limage.Name).Width = 225 Next
En espérant que ça t'aiguille vers une solution ;)
A+
Merci en tout cas.Je m'en suis sortie grace a ton code.:yaisse2: