Excelgoodies logo +1 650 491 3131

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

Next

If Not oSlide Is Nothing Then Set oSlide = Nothing
If Not oPPT Is Nothing Then Set oPPT = Nothing

End Sub

 

The function gets the Filename and the Property to be extracted and returns the property value.

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

 

Happy Excelling
Team Excelgoodies

VBA & Python