来挑战,VBS开发一个ppt实用工具
本人太笨,求指导。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盘来。