Discussion :

[guigol]

J'ai finalisé une macro qui insère des photos dans un fichier Excel, les redimensionne, ...

Hors il arrive dans certains cas que la photo ne se redimensionne pas bien parce que la photo est tournée.


Dans le cas précis, ci-dessus, c'est une photo en mode portrait.

C'est à dire que la hauteur est plus grande que la largeur.

Mais je ne sais pourquoi, l'appareil photo (le téléphone) qui a pris cette photo, l'a enregistrée en paysage, et lui a donné une rotation de 90°.

j'aimerais donc pouvoir interroger la photo au moment de l'insertion. Et lui demander son paramètre "Rotation", si c'est autre 90° ou 270°, je lui appliquerais le bon traitement pour que sa redimension se déroule bien.

mon 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
22
            Do While nf <> ""
                Cls.Sheets(1).Cells(82, Colonne).Select
                On Error Resume Next
                Set monimage = Cls.Sheets(1).Pictures.Insert(Chemin & "Photo\" & poteau & "\" & nf)
                If monimage.Height > monimage.Width Then
                    monimage.Height = 230
                    monimage.Top = Cells(82, Colonne).Top
                    monimage.Left = Cells(82, Colonne).Left
                Else
                    monimage.Width = 270
                    If monimage.Height > 230 Then
                        monimage.Height = 230
                    End If
                    monimage.Left = Cells(82, Colonne).Left
                End If
 
                Colonne = Colonne + 12
                If Colonne = 25 Then
                    Exit Do
                End If
                nf = Dir ' image suivante
            Loop

[Ben_L]

Bonjour,

Je n'ai pas à ma disposition d'image qui se comporte de la même façon lors d'une insertion dans Excel.
Impossible donc pour moi d'effectuer des tests.

Mais je peux au moins dire que votre objet monimage est de type Picture, qui est très mal documenté sur MSDN...
Vous pouvez accéder à la valeur de la propriété qui vous intéresse via :

Code :

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

monimage.ShapeRange.Rotation

A vous ensuite d'appliquer le traitement adéquat.

Bonne journée

[guigol]

Super. merci