Rappel : Depuis la version 2007, vous pouvez enregistrer les diapostiives d'une présentation sous un format image (tiff, gif, jpg, png).

C'est une bonne amélioration qui rend très simple la possibilité de convertir vos diapositives en image. Il suffit en effet de faire un enregistrer sous, et de choisir le format image de son choix. Vous pouvez ainsi exporter la diapo en cours ou toutes les diapos de votre présentation.

Malheureusement, la résolution de l'image n'est pas excellente.

Si vous avez besoin d'une meilleure résolution, une petite macro fera l'affaire.

 

Par exemple, pour enregistrer la diapositive en cours en tant qu'image JPG avec une résolution 4000 x 3000 pixels, utilisez la macro suivante. Vous donnerez dans la variable chemin_nom l'endroit où vous souhaitez stocker cette image, ainsi que le nom de l'image.

Sub exportimage()
Dim chemin_nom
chemin_nom = "M:\photos\pres_image.jpg"
ActiveWindow.Selection.SlideRange(1).Export chemin_nom, "JPG"40003000
End Sub

 

La macro suivante permet d'enregistrer chaque diapositive de la présentation au format PNG avec une résolution de 3386 x 1905 pixels, dans le dossier "M:\photos". PowerPoint nommera tout seul les images "diapositive1.png, diapositive2.png, etc.

Sub exportimage2()
ActivePresentation.Export Path:="M:\photos", FilterName:="PNG", ScaleWidth:=3386, ScaleHeight:=1905
End Sub

Comment choisir la résolution ? Le plus simple, afin de respecter l'échelle de la diapositive, est de prendre la taille de la diapositive (en centimètres) et d'en faire un multiple. Par exemple une diapositive au format 4/3 est de 27,517 cm x 19,05 cm. Pour la résolution, vous multiplierez par exemple par 10 et vous obtiendrez 2751 x 1905 pixels. Ainsi pour un format 16/9e, vous pourrez choisir, comme dans l'exemple ci-dessus 3386 x 1905.