PPT2007导出JPG，如何自定义文件名。

ning84

导出JPG文件的方法。

要求
导出的JPG文件名是幻灯1，改为A01,....幻灯9，改为A09.

静听溪流

你可以百度看看批量文件改名试试

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1675300&page=1&&_dsign=70ddad0d

ning84

自己出题自己解题。

1. Sub ll()
   
2.   Dim Pres As Presentation
   
3.       Set Pres = Application.ActivePresentation
   
4.   Dim Sld As Slide
   
5.   Dim ii
   
6.       Set Sld = Pres.Slides(10)
   
7.       Debug.Print Sld.Name
   
8.       For ii = 1 To Pres.Slides.Count
   
9.           Set Sld = Pres.Slides(ii)
   
10.           Sld.Export "D:\A" & Format(ii, "00") & ".JPG", "JPG"
    
11.       Next ii
    
12. 
    
13. End Sub
    

复制代码