Bonjour à tous,

Je cherche désespérément sous VBA une solution pour exporter une présentation ppt en .tif avec une compression RLE (Packbits).
A ce jour, je parviens sans problème à l'exporter en .tif avec le code suivant:

-----------------------------------
'Sauvegarde en .tif:
Dim oSl As Slide
Dim Chemin

Chemin_tif = Slide18.Lbl_tif.Caption

For Each oSl In ActivePresentation.Slides
oSl.Export Chemin_tif & "\Slide_" & Format(oSl.SlideIndex, "") & "." & "TIF", "TIF", 2250, 3000

'Renomme Diapositive1.tif vers le "nom du fichier" .tif:
AncienNom = Chemin_tif & "\Slide_" & Format(oSl.SlideIndex, "") & "." & "TIF"
NouveauNom = Chemin_tif & "\" & Nom & ".tif"
Next
------------------------------------

Mais mon souci est que le format de compression du .tif est par défaut en LZW, ce qui n'est pas compatible avec un utilitaire de chargement d'image utilisé ensuite dans mon entreprise.
Auriez-vous le bout de code manquant pour gérer la compression en RLE/packbits svp ?

Merci à vous.
Bonne journée.