Duplicating Slides in PowerPoint Using VBA

To duplicate slides in PowerPoint efficiently, you can use VBA (Visual Basic for Applications) macros. Here's a simple example of how to duplicate slides from Q1-21 to Q2-21, and so on.

Sub DuplicateSlides()

    Dim slideSource As Slide
    Dim slideDestination As Slide
    Dim slideNumber As Integer

    ' Loop through each slide from Q1-21, Q2-21, ..., Q1-22
    For slideNumber = 1 To 21
        ' Set the source slide
        Set slideSource = ActivePresentation.Slides(slideNumber)

        ' Determine the destination slide number based on the loop iteration
        Set slideDestination = ActivePresentation.Slides.Add(slideSource.SlideMaster, slideSource.Layout)

        ' Copy slide source formatting and content to the destination slide
        slideDestination.Design.CopyFrom slideSource

        ' Adjust the destination slide number (e.g., Q2-21)
        slideDestination.SlideNumber = (slideNumber \ 2) * 2 + slideNumber
    Next slideNumber

End Sub

To run the macro, press Alt + F11 to open the VBA editor, insert a new module, and paste the code. Then, run the macro by pressing F5 or clicking the run button in the toolbar.

For better understanding, you can find more information about VBA in the following resources:

• Microsoft Learn: VBA Basics
• W3Schools: VBA Tutorial
• VBA Express: PowerPoint VBA Programming

This code assumes that the PowerPoint presentation has been opened before running the macro. If you want to open a specific presentation, you can modify the code as follows:

Sub DuplicateSlides()

    Dim presentation As Presentation
    Dim slideSource As Slide
    Dim slideDestination As Slide
    Dim slideNumber As Integer

    ' Open the presentation
    Set presentation = Presentations.Open("Your_Presentation.pptx")

    ' Loop through each slide from Q1-21, Q2-21, ..., Q1-22
    For slideNumber = 1 To 21
        ' Set the source slide
        Set slideSource = presentation.Slides(slideNumber)

        ' Determine the destination slide number based on the loop iteration
        Set slideDestination = presentation.Slides.Add(slideSource.SlideMaster, slideSource.Layout)

        ' Copy slide source formatting and content to the destination slide
        slideDestination.Design.CopyFrom slideSource

        ' Adjust the destination slide number (e.g., Q2-21)
        slideDestination.SlideNumber = (slideNumber \ 2) * 2 + slideNumber
    Next slideNumber

    ' Save and close the presentation
    presentation.Save
    presentation.Close

End Sub

Replace "Your_Presentation.pptx" with the path to your PowerPoint presentation file.