Как я могу отделить каждый слайд от одного файла PPT, который имеет 100 слайдов? - PullRequest
Новая
       14

Как я могу отделить каждый слайд от одного файла PPT, который имеет 100 слайдов?

0 голосов
/ 04 июня 2018

У меня есть файл PowerPoint (Power Point 2016), который имеет 100 страниц (слайды).Я хочу автоматически разделять каждый слайд, чтобы создать 100 отдельных файлов PowerPoint с сохранением существующих функций, дизайна и макета.Есть ли способ сделать это легко?

1 Ответ

0 голосов
/ 05 июня 2018

Здравствуйте, я нашел ответ, и это дает то, чего я хочу достичь.Для вашей информации. 

Sub splitFiles()
    Dim tempR As Presentation
    Dim opres As Presentation
    Dim L As Long
    Dim oFolder As String
    'requires v. 2010 or later
    On Error Resume Next
    Set opres = ActivePresentation
    Set tempR = Presentations.Add
    tempR.PageSetup.SlideSize = opres.PageSetup.SlideSize
    oFolder = Environ("USERPROFILE") & "\Desktop\Files\"
    MkDir oFolder
    For L = 1 To opres.Slides.Count
        opres.Slides(L).Copy
        tempR.Windows(1).Panes(1).Activate
        Call CommandBars.ExecuteMso("PasteSourceFormatting")
        Call tempR.SaveCopyAs(oFolder & "Slide" & CStr(L) & ".pptx", ppSaveAsOpenXMLPresentation)
        tempR.Slides(1).Delete
    Next L
    tempR.Saved = True
    tempR.Close
End Sub
...