记录第一个拼拼凑凑弄出来的VBA（用Excel宏批量修改PPT页面设置）

时间与绿茵

一直知道VBA很厉害，很总觉得太难，这次需要修改1050个PPT的页面设置（统一改成宽27高14.25）
因为实在太麻烦，所以还是花了两三天时间弄出了代码（有这个时间一个个修改早完事了吧！！）
本来有个软件可以批量修改PPT的，但是要付费完全不能忍啊，所以还是自己弄吧。
参考了一下论坛其他大神的代码，最后弄出来成品，贴上分享一下
代码只能打开当前文件夹下ppt
Sub 批量修改页面()
    Application.ScreenUpdating = False
    Dim fso, ff, f, Myppt, newppt
    Dim a As Integer
    Set fso = CreateObject("scripting.filesystemobject")
    Set ff = fso.GetFolder(ThisWorkbook.Path) 'ThisWorkbook.Path是当前代码文件所在路径，路径名可以根据需求修改
    ActiveSheet.UsedRange.ClearContents
    a = 1
    For Each f In ff.Files
        If f Like "*.ppt" Then
    Set Myppt = CreateObject("PowerPoint.Application")
    Myppt.Visible = True
    Set newppt = Myppt.Presentations.Open(Filename:=f)                                           '10.63对应27宽度，5.61对应14.25宽度，都可以修改，后面72最好别改
          newppt.PageSetup.SlideWidth = 10.63 * 72
          newppt.PageSetup.SlideHeight = 5.61 * 72
          newppt.Save
          newppt.Close
          Set newppt = Nothing
          Set Myppt = Nothing
        Cells(a, 1) = f.Name '相对路径名
        Cells(a, 2) = f '全路径名

        a = a + 1
        End If

    Next f

    Application.ScreenUpdating = True
End Sub

测试在office2010上完全可行
有下载WPS的记得在配置工具里设置一下取消关联，否则会打开WPS的（别问我为什么知道，说多了都是泪）
参考了http://club.excelhome.net/forum.php?mod=viewthread&tid=1324274
Mr.蟋蟀写的excel vba 如何批量修改当前文件夹下ppt母版
看起来修改得不是很多，但为了找到页面设置的代码真的花了我好长时间……

前进者

感谢分享，标记一下，以便学习！