VBA code for PowerPoint Notes Page

Question

VBA code for PowerPoint Notes Page

Anonymous

I have a presentation in Notes Page view. Right now, I manually right click the presentation image on the top, lock it, and go to the next slide. This is so students can enter notes in the bottom but not mess with the presentation.

I wanted to record a MACRO to do this, but there isn't a macro record button, only the option to view the VBA code, which I don't have. How can I record the action with a macro?

I don't know enough about VBA to write the code to do this....

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

0 additional answers

Answer 1

This should work with an up-to-date copy of Powerpoint/Office 365; it doesn't work with non-subscription versions of PowerPoint (ie, PowerPoint 2021 or prior) though.

Sub LockSlideImagePlaceholders()

Dim oSl As Slide

Dim oSh As Shape

For Each oSl In ActivePresentation.Slides

For Each oSh In oSl.NotesPage.Shapes 

    If InStr(oSh.Name, "Slide Image Placeholder") &gt; 0 Then 

        oSh.Locked = True 

    End If 

Next

Share via

VBA code for PowerPoint Notes Page

0 additional answers