Saving a shape (picture) in a gif format

[Gustavo]

I want to create a macro that will save an image on my
slide in a GIF format. The option to Save as Picture is
available in the shortcut menu only. When I record my
macro it creates a statement that saves the entire slide
as a GIF, not just the selected object.

(Eg.ActivePresentation.SaveAs FileName:="C:\Practice
Data\Picture1.gif", FileFormat:=ppSaveAsGIF,
EmbedTrueTypeFonts:=msoFalse)

Does anyone know how I can modify this to save the shape
only?

 

[Shyam Pillai]

Gustavo,
Use this code:

Call
ActiveWindow.Selection.ShapeRange(1).Export("C:\Workarea\filename.gif",ppSha
peFormatGIF)

 

[Shyam Pillai]

I don't recall 2000 having an Export call too. Could you confirm, Steve?

 

[Shyam Pillai]

Great. It's still hidden in 2002/2003 too. I'll check again. Thanks.