파워포인트 VBA 매크로 이용하여 다른파일로 모든 슬라이드 복사하기

원본 ppt와 대상ppt를 실행합니다.

대상ppt의 파일명을 target.pptx로 두던지 아래 소스에 targetName을 수정합니다.

원본 ppt를 실행하여 아래 내용을 매크로에 기입하고 실행합니다.

Sub slideCopy()

   Dim x As Integer

   Dim fileName As String

   fileName = ActivePresentation.Name

   Const targetName As String = "target.pptx"

   

   

    Application.DisplayAlerts = False

    For i = 1 To Presentations(targetName).Slides.Count

        Presentations(targetName).Slides(1).Delete

    Next

    Application.DisplayAlerts = True

   

   For x = 1 To Presentations(fileName).Slides.Count

      Presentations(fileName).Slides(x).Copy

      Presentations(targetName).Slides.Paste

      Presentations(targetName).Slides(x).Design = _

        Presentations(fileName).Slides(x).Design

   Next

   

End Sub