Business Professionals
Excel Brushup | Power BI | DAX | Copilot | Claude AI
VB Programming | Report Automation |
MS-Office Automation
60+ Formulas | Dynamic Dashboards | MIS Reports | Excel Models
Adv. Excel | MIS Reports | Power Pivot | Power Query
Techno-Business Professionals
Power BI | Adv. DAX | MIS Reporting | SQL | VBA |
Web Scrapping | API Integration | Python | Copilot | Claude AI
Power BI | Power Apps | Power Automate |
Power Pages | Dataverse | Copilot | Claude AI
Power BI | MIS Reporting | SQL | VBA | Python |
Power Apps | Power Automate | Power Pages | Dataverse | Copilot |
Claude AI
Business Professionals
Excel Brushup | Power BI | DAX | Copilot | Claude AI
VB Programming | Report Automation |
MS-Office Automation
60+ Formulas | Dynamic Dashboards | MIS Reports | Excel Models
Adv. Excel | MIS Reports | Power Pivot | Power Query
Techno-Business Professionals
Power BI | Adv. DAX | MIS Reporting | SQL | VBA |
Web Scrapping | API Integration | Python | Copilot | Claude AI
Power BI | Power Apps | Power Automate |
Power Pages | Dataverse | Copilot | Claude AI
Power BI | MIS Reporting | SQL | VBA | Python |
Power Apps | Power Automate | Power Pages | Dataverse | Copilot | Claude AI

Sub Export_TextBoxes_AsNotes()
Dim oPPT As Presentation
Dim oSlide As Slide
Dim oSlideShape As Shape
Dim oNotesShape As ShapeSet 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.TextEnd If
Next
If Not oSlide Is Nothing Then Set oSlide = Nothing
If Not oPPT Is Nothing Then Set oPPT = NothingEnd 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 BI
SQL
Power Apps
Power Automate
Microsoft Fabrics
Azure Data Engineering