|
|
看到这篇能自动保存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 |
|
