本人太笨，求指导。
Sub SaveShape()
  Dim mySlide As Slide
  Dim myShape As Shape, i_Temp As Integer
  On Error Resume Next
  For Each mySlide In ActivePresentation.Slides
     For Each myShape In mySlide.Shapes
       i_Temp = i_Temp + 1
       myShape.Export pathName:="D:\" & i_Temp & ".gif", Filter:=ppShapeFormatGIF
     Next
  Next
End Sub
这是一段非常实用的VBA，运行后能将当前ppt中所有的艺术字，图形、图片都变成gif保存。
要求很简单，只需改写成vbs，最好是带命令行的。
如getpic.vbs 1.ppt就可以将1.ppt里的图形元素都抽到D盘来。