Auto-orientation d'image dans Userform

Arf, ceci explique cela.
Du coup je comprends un peu mieux, les photos qui s'affichent correctement sont celles qui sont passées par mon logiciel photo, qui doit au lieu de la donnée exif de rotation complètement retournée la photo.
Sur le coup je vais me plonger dans le gdi+ pour voir si j'arrive à en tirer quelque chose.

Merci bien ;)

Citation:

---

Sur le coup je vais me plonger dans le gdi+ pour voir si j'arrive à en tirer quelque chose.

---

tu risques de perdre ton temps pour 3 raisons :
1) ces données exif ne sont pas toujours forcément présentes (dépendra du soin du photographe)
2) si tu appliques une rotation du rectangle à chaque image en portrait, tu risques fort d'imposer une rotation erronée là où il ne faut pas le faire
3) tu rends ton projet dépendant de telle ou telle autre version.

Je ne saurais te conseiller à nouveau plus vivement d'agir (hors ton appli) sur les fichiers image pour en mettre, un par un, les rectangles dans le bon sens.

Bonjour,

J'ai déjà dégrossi le travail avec le module clGdiplus.

- Télécharger le module clGdiplus ici :
https://arkham46.developpez.com/arti...ice/clgdiplus/
- L'importer dans l'éditeur VBA.
- Modifier dans ce module la constante AppName pour Excel :

Code:

---

#Const AppName = "E"

---

- Lire la propriété Exif d'orientation et agir en conséquence sur l'image

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim loGdi As clGdiplus Set loGdi = New clGdiplus loGdi.LoadFile ThisWorkbook.Path & "\IMG_4879.jpg" Select Case loGdi.GetExifData(TagOrientation) Case 6 loGdi.RotateFlip Rotate90flipnone Case 8 loGdi.RotateFlip Rotate270flipnone End Select loGdi.Repaint Me.Image1

---

Sinon oui on peut retourner chaque image une par une.
C'est valable pour un ensemble figé d'images.
Mais si c'est à faire pour chaque nouvelle photo, le temps passé à coder le retournement d'image est amorti.
Et puis modifier l'image source n'est pas toujours souhaitable.

Alors, j'ai cherché du côté des logiciels retournant toutes les images d'un dossier, c'est faisable en 2 clics donc plutôt pas mal. Par contre c'est assez chronophage en fonction de la taille et du nombre des fichiers, mais ça fera l'affaire à défaut.
Et oui effectivement, les images ne sont pas figées, il s'agit d'environ 1000 clichés par journée, d'ou l’intérêt de faciliter l'opération.

Merci beaucoup Arkham46 pour le bout de code, je vais essayer de comprendre tout ça et de l'intégrer dans mon code.
J'avais il y a quelques jours déjà essayé d'utiliser ton module dans mon fichier, cela me retournait des messages d'erreurs, je crois liés au fait que j'utilise un programme en 64bits, mais je vais approfondir cela. En tout cas j'ai essayé avec succès ton fichier démo avec notamment une horloge et une carte des départements, j'étais loin d'imaginer ce que l'on peut réaliser dans excel, enfin en VBA.

hello! Je poste ici car j'ai le même souci : un userform qui me permet d'afficher certaines informations d'un tableau d'équipements divers, avec un cadre dans lequel je "loade" la photo correspondante (mon tableau contient, pour chaque équipement, un lien hypertexte vers la photo en question).

Ma macro fonctionne nickel sauf que certaines images apparaissaient retournées. Au début, je pensais que c'était un problème de propriété du cadre et que cela touchait toutes les photos en mode portrait (qui apparaissent toutes en mode paysage)... sauf que, je viens de faire un test avec une autre image en mode portrait, et là, elle apparaît bien en mode portrait : or, je me souviens que j'ai dû manuellement faire pivoter les photos lorsque celles-ci apparaissaient dans l'explorateur Windows en mode paysage alors qu'il s'agissait de portrait. Cette constatation me fait donc penser que les images contiennent quelque part une information sur l'orientation initiale, et qu'on a beau modifier celle-ci dans le viewer d'image, cette info est récupérée par VBA... vous pourriez me dire exactement ce qu'il faut que je fasse?

merci pour votre aide précieuse

bonjour
elle apparaissent comme elle ont été prise
on peu jouer avec WIA mais en aucun cas rendre automatique la chose
perso avant d'utiliser des images, photo dans UserForm je les passes simplement a la visionneuse Windows
il y a des bouton de rotation , je m'en sert et quand je passe a la suivante les modifs restent et seront donc dans le bon sens lors de leur utilisation en VBA ou autre
Pièce jointe 485195
je suppose qu'il y en a une sur W10 aussi non ?