Excelgoodies logo +44 (0)20 3769 3689
+44 (0)20 3769 3689  

 Business Professionals

 Techno-Business Professionals

 Technology Professionals

 Business Professionals

 Techno-Business Professionals

 Technology Professionals

Home

|

About Us

|

Contact Us

Programs & Courses

New

Home | About Us | Contact Us

+44 (0)20 3769 3689

support@excelgoodies.uk

ExcelGoodies Worldwide United States | Canada | Singapore

LEARN THIS HANDS ON

Excel VBA Programming

GMT . Live Online FILLING FAST
View all upcoming batches
How to Add Notes to Powerpoint Slides using VBA?

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

New

Next Batches Now Live

Power BIPower BI
SQLSQL
Power AppsPower Apps
Power AutomatePower Automate
Microsoft FabricMicrosoft Fabrics
AzureAzure Data Engineering
Explore Dates & Reserve Your Spot → Reserve Your Spot →

Related Articles