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 Next 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
www.Excelgoodies.com