Fill-in the details.
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.
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.
Power BI | MS-SQL | DAX | Power Apps | Power Automate
Power BI | MS-SQL | ETL with SSIS | VBA | Python
Advanced Excel | MIS Reporting | Power Query
VB Programming | VBA | MS-Office Automation
Power BI | Power Pivot | Power Query | Basic DAX
Advanced Excel | MIS Reporting | Model Building
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
VBA & Python
Is knowing Excel VBA a good starting point for learning any other programming languages?
Read
