hellnar
XLDnaute Junior
Bonjour,
Pour faire un diaporama montrant une photo par diapositive, j'utilise un programme VBA assez simple
Sub confection_diapos()
Presentations(1).Windows(1).ViewType = ppViewNormal
ledossier = ActivePresentation.Path & ":" ' et non pas antislash comme sur Windows
lefichier = Dir(ledossier)
While Len(lefichier) > 0
If UCase(Right(lefichier, 3)) = "JPG" Then ' attention pas de générique sur Mac
lenombre = ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:= lenombre + 1, Layout:=ppLayoutTitleOnly).SlideIndex ' pour créer une diapo supplémentaire
Set image = ActiveWindow.Selection.SlideRange.Shapes.AddPicture(ledossier & lefichier, msoTrue, 1, 1, 1, 1) ' chargement de l'image
image.ScaleHeight 1, msoTrue
image.ScaleWidth 1, msoTrue
End If
lefichier = Dir
Wend
End Sub
Le programme fonctionne bien, mais toutes les images sont en paysage, même celles qui sont en portrait (largeur inférieure à hauteur).
Je voudrais savoir lire le format de la photo pour la disposer naturellement.
En somme lire les exif pour faire tourner la photo en portrait.
NB: ce programme fonctionnait très bien sur PC avec une version 97 d'Office, le chargement des photos était en taille réelle.
Qui aurait une idée ? Je fournis le programme complet en cadeau ensuite !!
Hellnar
Pour faire un diaporama montrant une photo par diapositive, j'utilise un programme VBA assez simple
Sub confection_diapos()
Presentations(1).Windows(1).ViewType = ppViewNormal
ledossier = ActivePresentation.Path & ":" ' et non pas antislash comme sur Windows
lefichier = Dir(ledossier)
While Len(lefichier) > 0
If UCase(Right(lefichier, 3)) = "JPG" Then ' attention pas de générique sur Mac
lenombre = ActivePresentation.Slides.Count
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:= lenombre + 1, Layout:=ppLayoutTitleOnly).SlideIndex ' pour créer une diapo supplémentaire
Set image = ActiveWindow.Selection.SlideRange.Shapes.AddPicture(ledossier & lefichier, msoTrue, 1, 1, 1, 1) ' chargement de l'image
image.ScaleHeight 1, msoTrue
image.ScaleWidth 1, msoTrue
End If
lefichier = Dir
Wend
End Sub
Le programme fonctionne bien, mais toutes les images sont en paysage, même celles qui sont en portrait (largeur inférieure à hauteur).
Je voudrais savoir lire le format de la photo pour la disposer naturellement.
En somme lire les exif pour faire tourner la photo en portrait.
NB: ce programme fonctionnait très bien sur PC avec une version 97 d'Office, le chargement des photos était en taille réelle.
Qui aurait une idée ? Je fournis le programme complet en cadeau ensuite !!
Hellnar
