Problème de transparence GIF et PNG avec Export et SaveAs

[nl5nn]

Bonjour,
J'ai écrit une macro qui exporte les shapes d'une présentation powerpoint une à une en PNG (ou GIF).
Mon problème est que je n'arrive pas à exporter la transparence. Powerpoint exporte le fond blanc de ma diapositive à la place des zones transparentes.

J'utilise le code suivant:

 
ActiveWindow.Selection.SlideRange.Shapes(1).Select
ActivePresentation.Export path & "\icoppt\" & filename & "." & graphic_type, graphic_type, scalewidth, scaleheight
 

J'ai par ailleurs réussi à la main à exporter mes shapes avec la transparence en faisant un clique droit sur la forme et "enregistrer en tant qu'image".
J'ai donc ensuite enregistré une macro en faisant cette manip, mais quand je lance la macro ceci ne produit pas le même effet. C'est le slide entier qui est sauvegardé et sans transparence!!!

Extrait de la macro:

 
ActiveWindow.Selection.SlideRange.Shapes("AutoShape 4").Select
ActivePresentation.SaveAs FileName:="Image3.png", FileFormat:=ppSaveAsPNG, EmbedTrueTypeFonts:=msoFalse
 

Ma question est : Comment puis-je exporter mes shapes en images avec la transparence (GIF et si possible PNG).
Merci d'avance pour vos réponses.

[philben]

bonjour,

peut être avec la fonction masquée de l'objet Shape :

 
...Shapes("Picture 4").Export "c:\Image3.png", ppShapeFormatPNG
 

Philippe

[nl5nn]

Un grand merci, ça marche. Je ne savais pas qu'il y avait des méthodes cachées dans VBA!
La transparence est bien exportée en canal alpha pour le PNG.
Merci encore.