shapes object

[zidansoft]

Is there any way to save each shape object as a different file(bmp or
jpg like that)..
from PowerPoint presentation (through automation) ?
thanks

 

[Jean-Pierre FORESTIER]

Right click on the shape/Save as an image

 

[zidansoft]

through automation???

 

[Shyam Pillai]

Use this:
Const BASE_PATH = "F:\Under development\MSDN\"
Sub ExportShapesAsImages()
Dim oSld As Slide
Dim oShp As Shape
Dim sExportImage As String

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
sExportImage = BASE_PATH & "Sl_" & oSld.SlideIndex & "_Shp_" & _
oShp.ZOrderPosition & ".jpg"
Call oShp.Export(sExportImage, ppShapeFormatJPG)
Next
Next

End Sub

--
Regards,
Shyam Pillai

Animation Carbon
http://www.animationcarbon.com

 

[zidansoft]

Thanks for your valuable advice..

Use this:
Const BASE_PATH = "F:\Under development\MSDN\"
Sub ExportShapesAsImages()
Dim oSld As Slide
Dim oShp As Shape
Dim sExportImage As String

For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
sExportImage = BASE_PATH & "Sl_" & oSld.SlideIndex & "_Shp_" & _
oShp.ZOrderPosition & ".jpg"
Call oShp.Export(sExportImage, ppShapeFormatJPG)
Next
Next

End Sub

--
Regards,
Shyam Pillai

Animation Carbon
http://www.animationcarbon.com