How to Add Notes to Powerpoint Slides using VBA?

This snippet converts the TextBoxes / Shapes with Text that are available in PowerPoint Slide to Notes Section.

Sub Export_TextBoxes_AsNotes()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oSlideShape As Shape
    Dim oNotesShape As Shape
    Set oPPT = ActivePresentation
    Set oSlide = oPPT.Slides(3)
    For Each oSlideShape In oSlide.Shapes
        If oSlideShape.HasTextFrame Then
            Set oNotesShape = oSlide.NotesPage.Shapes.AddShape(msoShapeRectangle, 54, 442, 432, 324) '
            oNotesShape.TextFrame.TextRange.Text = oSlideShape.TextFrame.TextRange.Text
        End If
    If Not oSlide Is Nothing Then Set oSlide = Nothing
    If Not oPPT Is Nothing Then Set oPPT = Nothing

End Sub

Learn how to write VB Macros in Microsoft Excel with our specialized course on Excel Automation here.

Happy Excelling
Team Excelgoodies

Leave a Reply

Your email address will not be published. Required fields are marked *