Networking/Computing Tips/Tricks

Rate this content:
5 of 5 - 3 votes
Thank you for rating this article.

Epiphany number 3,812!!

After years and years of wondering what on earth is going on at Microsoft that they have done no feature changes of significance to PowerPoint, and frustration whenever I change the Notes Master, that I must go to every slide, one by one, and right click on the notes page, click on Notes Layout, select Reapply Master, then click OK (that is 4 clicks per slide!) a solution has landed!!!

Check out the video of this:

Now, in order to implement this, you must have the "Developer Tab".  By default, this tab is not present. 

So the first step is to enable this tab. 

Select FILE, then select Options, and a dialogue box will pop up.  In that box, select "Customize Ribbon:

pptdeveloper

You will see on the right (highlighted) that you need to select the Developer box.  Then click OK.

You should now see the Developer Tab.

Click on the Developer Tab.  Select Macros.  In the Macro Name box, type: ApplyMasterToNotes, then click Create.

A dialogue will open.  Paste the following code in between the "Sub ApplyMasterToNotes()" and "End Sub"

' Modified version of code originally posted to
' msnews.microsoft.com public newsgroups by
' David Foster in May of 1999
'
' Further modified on 2/25/21 by Andrew Walding for Office 365
' bug that removes the slide image from the Notes page.
' See commented lines below.

    Dim ctl As CommandBarControl
    Dim oSl As Slide

    ' 700 is the control ID for Layout
    Set ctl = CommandBars.FindControl(Id:=700)
    ActiveWindow.ViewType = ppViewNotesPage

    If (ctl Is Nothing) Then
        MsgBox "command not available"
        Exit Sub
    End If

    For Each oSl In ActivePresentation.Slides

        ' go to the current slide
        ActiveWindow.View.GotoSlide (oSl.SlideIndex)
        DoEvents

        ' Bring up the dialog
        ctl.Execute
        DoEvents

        ' Send the r keystroke to reapply master
        SendKeys "%r{enter}"
        DoEvents
        
        ' If you notice that Powerpoint removes the slide image
		' after running this macro, the comment out the SendKeys and DoEvents above
		' uncomment the SendKeys and DoEvents lines below and running
		' the macro again.
		' Reinsert the slide image
        'SendKeys "%s{enter}"
        'DoEvents

    Next

 

I suggest you apply this to all presentations so this Macro is available. Now close the dialogue. Don't worry it saved.

Now, go to the View Tab in PowerPoint. Select the Notes Pages View. Click back on the Developer tab. Select Macros. Your Macro is waiting. Select it and run it, and watch every note page get adjusted. What a great feeling!

Once done, save your presentation.  You will have to save it as a "Macro Enabled" PowerPoint - FYI.

Now seriously, how hard would it be for Microsoft to incorporate this as an option?

Enjoy!

I hope you find this article and its content helpful.  Comments are welcomed below.  If you would like to see more articles like this, please support us by clicking the patron link where you will receive free bonus access to courses and more, or simply buying us a cup of coffee!, and all comments are welcome! 

Add comment

Submit

Did you learn something?
Did I save you time? 

Buy me a coffeeBuy me a coffee!

Find by Tag

5G Networks 6LoWLAN 6LoWPAN 802.11 802.11ah 802.11ax 802.11ay 802.11az ACL Addressing Analysis Ansible Architecture ARP Assessment AToM Backup Bandwidth BGP Bibliography Biography Briefings CBRS CellStream Cellular Central Office Cheat Sheet Chrome Cisco Clock Cloud Computer Consulting CPI Data Center Data Networking Decryption DHCPv4 DHCPv6 Display Filter DNS Documentation ECMP EIGRP Ethernet Flipping the Certification Model Follow Me Fragmentation Git GNS3 Google GQUIC Hands-On History Home Network HTTPS ICMP ICMPv6 IEEE 802.11p IEEE 802.15.4 In A Day Internet IOS Classic IoT IPv4 IPv6 L2 Switch L2VPN L3VPN LDP Learning Services Linux LLN Logging LoL M-BGP MAC MAC OSx Macro Microsoft mininet Monitoring Monitor Mode MPLS Multicast Name Resolution Netflow NetMon netsh Networking Network Science nmap Npcap nslookup Online Learning Online School OpenFlow OSPF OSPFv2 OSPFv3 OSX Parrot Passwords pcap pcap-ng PIM Ping Policy Port Mirror POTS POTS to Pipes PPP Profile Profiles Programming Project Management Python QoS QUIC Requirements RFC RIP Routing RPL RSVP SAS SDN Security Self Certification Service Provider Small Business Smartport SONET Span Port SSH SSL Subnetting T-Shark TCP TCP/IP Telco Telecom 101 Telecommunications Telnet Terminal TLS Tools Traceroute Traffic Analysis Traffic Engineering Training Travel Troubleshooting Tunnel Utility Video Virtualbox Virtualization Voice VoIP VXLAN Webex Wi-Fi Wi-Fi 4 Wi-Fi 5 Wi-Fi 6 Wi-Fi 6/6E Windows Wireless Wireless 5G Wireshark Wireshark Tip WLAN ZigBee Zoom

Twitter Feed