Learn How to Add Notes to Powerpoint Slides using VBA?

Talk to you soon.

Prove you're human: Type the code shown.

By clicking any of the above buttons, I agree to the terms & conditions and privacy policy, and I consent to receive updates via SMS or email

+1 650 491 3131

Power BI Reporting:
Beginner to Expert
Power BI | Power Pivot | Power Query | DAX
Microsoft Excel Reporting:
Business Reporting & Model Building
60+ Formulas | Data Stories | Advanced Reporting & Modeling
Excel VBA Programming
for Automation
VB Programming | Report Automation |
MS-Office Automation

Business Professionals

Techno-Business Professionals

Technology Professionals

Programs & Courses

New

Home

About Us

Programs & Courses

New

Home | About Us | Contact Us

+1 650 491 3131

inquiry@excelgoodies.com

ExcelGoodies WorldwideUSA | UK | Australia | Singapore | Phillipinnes

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