VBS制作ppt实用工具，高手来帮忙

wnc1988

http://club.excelhome.net/thread-242021-1-1.html
看到这篇能自动保存ppt内所有图片的帖子，我就被深深吸引了。我喜欢这种自动处理方式。但我想把它弄成VBS形式的，这样就不用一个个地点了。找个好多资料，问了好多论坛都不行，希望能有高手帮我指点一下了。
下面是我所能做到的极限。循环体里很简单，就两句话，那句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

wnc1988

是不是用这个export方法之前还要做点儿什么，比如引入什么库？