Business Professionals
Techno-Business Professionals
Power BI | Power Query | Advanced DAX | SQL - Query &
Programming
Microsoft Fabric | Power BI | Power Query | Advanced DAX |
SQL - Query & Programming
Microsoft Power Apps | Microsoft Power Automate
Power BI | Adv. DAX | SQL (Query & Programming) |
VBA | Python | Web Scrapping | API Integration
Power BI | Power Apps | Power Automate |
SQL (Query & Programming)
Power BI | Adv. DAX | Power Apps | Power Automate |
SQL (Query & Programming) | VBA | Python | Web Scrapping | API Integration
Power Apps | Power Automate | SQL | VBA | Python |
Web Scraping | RPA | API Integration
Technology Professionals
Power BI | DAX | SQL | ETL with SSIS | SSAS | VBA | Python
Power BI | SQL | Azure Data Lake | Synapse Analytics |
Data Factory | Databricks | Power Apps | Power Automate |
Azure Analysis Services
Microsoft Fabric | Power BI | SQL | Lakehouse |
Data Factory (Pipelines) | Dataflows Gen2 | KQL | Delta Tables | Power Apps | Power Automate
Power BI | Power Apps | Power Automate | SQL | VBA | Python | API Integration
New
Home | About Us | Contact Us
ExcelGoodies WorldwideUSA | UK | Australia | Singapore | Phillipinnes
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