[问题求助] 来挑战，VBS开发一个ppt实用工具

wnc1988

本人太笨，求指导。

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盘来。

wnc1988

下面是我所能做到的极限。循环体里很简单，就两句话，那句export提醒我缺少语句。

Dim i, objPPT, objSlide,myShape, strFileName
Dim objPowerPoint
Set objPowerPoint = CreateObject("PowerPoint.Application")
    objPowerPoint.Visible = True
    objPowerPoint.DisplayAlerts = False 

strFileName  = "D:\1.ppt" ' 这里是幻灯片PPT文件所在位置
i = 0
Set objPPT = objPowerPoint.Presentations.Open(strFileName)
For Each objSlide In objPPT.Slides
For Each myShape In objSlide.Shapes
    myShape.Export pathName:="D:\PPT中导出的图片\" & i_Temp & ".gif", Filter:=ppShapeFormatGIF
    i = i+1
Next
Next
objPPT.Close
Set objPPT = Nothing
复制代码