Discussion :

[blanka6]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[blanka6]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.