Here at BrightCarbon we’re always looking for new ways to improve our own PowerPoint productivity and then share that knowledge with the presentation community (that includes you, by the way!). One of the ways we do this is by using VBA code to automate and extend the functionality of PowerPoint. We publish free PowerPoint VBA code snippets here in our blog for you to use and also offer a PowerPoint automation service. This article explains how to grab the code from our articles and use it in your PowerPoint project, so that you can take your productivity to the next level!
Visual Basic for Applications (VBA) is a programming environment for Microsoft Office applications. It’s included with your installation of Office by default (unless your system administrator has deactivated it). PowerPoint VBA provides you with a way to do one of two things using macros and add-ins:
Getting to meet your VBA friend is very simple. With PowerPoint open and at least one presentation file open, press Alt+F11* on your keyboard. This will open the VBE (Visual Basic Editor):
*If for some reason Alt+F11 isn’t mapped on your keyboard you can right click anywhere on the ribbon, select Customize the Ribbon… and in the window that appears, tick the Developer Tab check box over on the right hand side before clicking OK to close the window. Now you can click the Visual Basic button within this tab:
To add some VBA code, you need a container to put it in so go ahead and click Insert from the menu and then select Module:
You now have a module ready to paste the VBA code into from one of our blog articles:
Copy the VBA code from the required blog article by double-clicking on it and then paste it into the Module1 window above. Here’s a very simple example of some code to display a message dialogue:
'---------------------------------------------------------------------------------- ' PowerPoint VBA Macro to display Hello World message. '---------------------------------------------------------------------------------- ' Copyright (c) 2019 BrightCarbon Ltd. All Rights Reserved. ' Source code is provided under Creative Commons Attribution License ' This means you must give credit for our original creation in the following form: ' "Includes code created by BrightCarbon Ltd. (brightcarbon.com)" ' Commons Deed @ http://creativecommons.org/licenses/by/3.0/ ' License Legal @ http://creativecommons.org/licenses/by/3.0/legalcode '---------------------------------------------------------------------------------- ' Purpose : Displays a dialog box with a Hello World text message. ' Author : Jamie Garroch ' Date : 06MAY2019 ' Website : https://brightcarbon.com/ '---------------------------------------------------------------------------------- Sub HelloWorld() MsgBox "Hello World!", vbInformation + vbOKOnly, "This is my first VBA Macro" End Sub
You should now see something like this:
Because this code is just a single Sub procedure called HelloWorld, it’s referred to as a macro.
Now you have the macro in your presentation you can use Alt+Tab to return to the more familiar PowerPoint window. From here, the macro can be run by pressing Alt+F8 on your keyboard (or by clicking the Macros button in the Developer tab) which opens a window containing a list of available macros:
The first time you add VBA code to a file, Microsoft assumes that it is safe because you added it. As soon as you save, close and reopen the file, Microsoft doesn’t know that it’s your code so it will disable it by default. You can tell the Office app to allow your code to run either by signing it with a digital certificate (beyond the scope of this article) or by lowering the security setting for the app. You can do this in PowerPoint by clicking File / Options / Trust Center / Trust Center Settings / Macro Settings and selecting this option shown below:
With the macro(s) in your presentation file you can now use it in that file or with any other PowerPoint file you have open. Bear in mind that to use your macros, the file that contains them must be open. You can add as many modules and macros as you like in a PowerPoint file so you could create your own library of macros in a single file that you then access from all other decks. When you have multiple PowerPoint files open, make sure you select the file that contains your macros in the Macro window by clicking the Macro in drop down:
Once you’ve added VBA code to your presentation, PowerPoint will ask you to save it as a pptm file (the ‘m’ stands for macro) instead of the more familiar pptx format. You can go ahead and do this to either keep an archive copy of your code-enabled project or to create your personal macro library.
If you want to distribute your presentation, it’s advisable to save it using the familiar pptx format so that your recipients don’t see lots of verbose security messages when opening pptm files!
You can make your file saveable as a standard presentation again by right–clicking on each code module in the project explorer pane, clicking Remove ModuleX… and either click Yes (if you want to keep a backup of the modules independently of your presentation) or No when asked if you want to save the module before removing it:
Now your presentation doesn’t include any code and you can save it as a pptx file.
So, there you have it. You now know how to open the VBE, insert a PowerPoint VBA code module, paste code into it, run the macro and save the file in either pptm or pptx formats. All you need is a cool macro to make your daily life even easier. Keep checking in with our blog for more useful macros – like this one on restoring default slide master layouts!
Check out our PowerPoint automation service which provides you with a custom solution to your specific needs.
Leave a commentHow do you make sure that your graphs and charts have consistent branding across Excel, PowerPoint and Word? Learn how to create and use custom templates that support your brand identity across Microsoft Office.
You can do some really cool things in Microsoft Office with just a few lines of Visual Basic for Applications (VBA) - from creating your own custom formula in Excel to correcting branded content in PowerPoint to merging address data for a mail campaign in Word. And sometimes you need to share that VBA solution with colleagues and clients, via the Internet. A change that Microsoft rolled out at the end of March 2022 tweaks the process required by Windows users to gain access to this active content.
Our comprehensive guide to password protecting PowerPoint files so your precious presentations stay just they you made them!
Join the BrightCarbon mailing list for monthly invites and resources
Tell me more!The video animation looks AWESOME! Thank you sooooo much. I am very happy and proud with the result; this video is really convincing. Really really well done.
Elodie Maurer SES
very simple, very explicit, very good help for a beginner vba programmer in powerpoint. Thanks
great resource, thanks. I’ve used VBA for years in MSaccess, and this is a good refresher for me.
I am trying to make a ppt file that loops until stopped. then I save it as a video. the ppt ran and looped continuously. Once recorded as video it stopped looping. do you have code to make ppt work when in video format
Hi Charles. As soon as you export a PowerPoint deck as a video all the PowerPoint functionality is removed as the file is magically transformed into an MP4 file, without VBA (sob sob). The only way to make the video loop is to use the looping feature of your video player.
Yeah, your best off recording a screen capture of the presentation running, then cutting it so it loops perfectly.
You can convert the video into gif file so that it will loop
Hi Jamie, thanks for the clear into, I am very new to this so that really helps. I am trying to develop a VBA macro that looks for the left hand mouse key being pressed and held down for more than two seconds whilst over a shape in slideshow mode. Once this is satisfied (i.e. two second press) for it then to hyperlink or take the user to a specified slide or even the next slide worst case.
I realise there is an automated/ built in feature (Action) that does this type of thing for a mouse click or mouse over but I really need a “long press” to activate if possible.
Any help appreciated.
Hi Simon and thanks for a great question. What you’re looking to do is pretty complex because VBA doesn’t natively support mouse actions in the PowerPoint slide show window. But, it is possible to use a Windows API (hence no Mac compatibility) called GetAsyncKeyState to gain access to mouse button click events. I had a look at this and quickly ran into a brick wall because an action link to a macro in slide show mode (Insert / Action / Mouse Click / Run macro) fires on the mouse up event, not mouse down. That means any corresponding VBA timer code can’t run until after the user releases the button and hence too late to detect if it was held down for two seconds. Maybe something could be done with the mouse over event to simulate what you need to achieve? Another approach could be to use the mouse down event on an invisible userform although that is also getting very involved with multiple Windows APIs. Depending on what you’re trying to do, you could also start the timer on click one, change the colour of the clicked shape and show countdown text before reverting to the original colour. If the user clicks a second time before the time expires, then the hyperlink is fired.
Valuable app
Hello I have a question:
Private Sub CommandButton2_Click()
ActivePresentation.FollowHyperlink _
Address:=”http://192.168.16.49/?OUT1=ON”, _
NewWindow:=False, AddHistory:=False
ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End Sub
Now it opens Chrome. but how can i make it that it opens te address en afther that shut down chrome.
Hi Tom. Your example should open the default browser at the URL specified by the Address parameter. For more information on the FollowHyperlink method, see this Microsoft documentation: https://docs.microsoft.com/en-us/office/vba/api/powerpoint.presentation.followhyperlink
Thank you very much! It’s exactly what I needed.
Hello,
I have tried using your randomizing macro with a powerpoint – I must be doing something wrong, because it isn’t putting the slides in random order. Please advise! I copied the macro exactly (using cut & paste), and thought I was following all the directions here for how to use it in the powerpoint. But, no random presentation of the slides. Boo hoo!
Hi Marya. Let’s check that VBA is installed and enabled on your machine. Can you add the following macro to the VBE project (just below the existing one) and try to run it from the PowerPoint window using Alt+F8?
Sub CheckVBA()
MsgBox “it’s working”
End Sub
Make sure the quotes are the straight type.
Hi Jamie,
I am trying to format my title page so that the number displayed is equal to the linked slide and updates automatically wherever the slide is moved. For example “about us” is on slide #5 and linked, so it goes to slide 5 when you click on the word. I need the number (in a separate text box) to update automatically to the slide number location that the link goes to.
Hi Mary and thanks for the question. It looks like you’re interested in some kind of automated agenda slide builder. That’s a fair bit of code to create and quite complex as it needs to handle events from PowerPoint to detect when slides have moved. It could be possible to write a simpler macro which you run manually each time you want to update that title page. You’d need start by finding a way to identify which objects are your numerical indicators. For example, if you named your objects in the selection pane (Alt+F10) “Agenda Link”, then is simple macro could be a starting place for you:
Sub UpdateAgendaNumbers()
Dim oSld As Slide
Dim oShp As Shape
Dim LinkedSlideIndex As Long
On Error Resume Next
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Name = “Agenda Link” Then
If oShp.ActionSettings(ppMouseClick).Action = ppActionHyperlink Then
If oShp.HasTextFrame Then
LinkedSlideIndex = Split(oShp.ActionSettings(ppMouseClick).Hyperlink.SubAddress, “,”)(1)
oShp.TextFrame.TextRange.Text = LinkedSlideIndex
End If
End If
End If
Next
Next
End Sub
Great wealth of information. Have never used macros before but was looking to use them to help with this situation. At work we use Work Orders (created in Power Point) and are looking to include a sequential number to them (print 50-100 copies of one slide with the numbers) and if possible would like the number to continue from the last printed number…been trying to find some code to help but not having much luck possible partly due to being new to macros
That’s definitely something we could help design for you Joshua. If you’d like to discuss further, please click the Contact button at the top of this page.
I tried this changing the font color of text within the textbox. I used this to change the font color on a mouse over:
Public Sub GraphicHover(ByRef oGraphic As Shape)
oGraphic.TextFrame.TextRange.Font.Color.RGB = RGB(0, 130, 202)
End Sub
and it works just fine. But, when I move the mouse off the text box, onto the invisible rectangle with this code attached to the mouseover event, it doesn’t change the text color back to it’s original color and remains the color I changed it to mentioned above. I know the mouseover event is being triggered because I checked “Highlight when mouse over” and I am seeing the highlight on the invisible rectangle:
Public Sub ResetGraphicHover(ByRef oCover As Shape)
Dim oSld As Slide
Dim oShp As Shape
Set oSld = oCover.Parent
For Each oShp In oSld.Shapes
With oShp.TextFrame.TextRange.Font.Color
If .RGB = RGB(0, 130, 202) Then .RGB = RGB(121, 135, 156)
End With
Next
End Sub
Any clue where my ResetGraphicHover is failing?
Hi Dave. I took your code and it works for me. You could add a debug line after the For Each… line in the rest macro to check that (a) it’s firing and (b) which shapes are being looked at on your slide. To do that, add this:
Debug.Print oShp.Name
After you run the slide show, check the output in the VBE Immediate pane (Ctrl+G to toggle it).
Hi I am creating an interactive game (matching cards or concentration) in PowerPoint. If the 2 cards match, I need a pop-up text box to appear. If the 2 cards do not match, I need a sound to play.
I understand I need programming to make this happen. Please help or give alternative ways to achieve this. Thanks.
Hi Tammy. Have a look at this article which will help you: https://www.brightcarbon.com/blog/powerpoint-memory-game/
Hi Producer
I will like to get comments on macros you can make available to me. Beautiful.
I am using this approach frequently to make offline projects.
Thanks.
S. Fas
Excellent!!!
Thank you!
You’re more than welcome Nataša!
Thank you! Is there any option to replace a font in the entire presentation for a specific character. Let’s say, I would like to change font only for dots in the deck but I would like to keep the rest in the original font. Any idea please?
Thank you so much!
Hi Jan. You might be able to use the Replace Fonts feature found in the Home tab of PowerPoint under the Replace menu at the far end of the ribbon. If you need to use VBA then set up a nested loop to iterate all shapes within all slides and then use the oShp.TextFrame2.TextRange.Font object to change the font.
Exellent explenation. so beutiful.
I am creating an interactive e learing quiz.
Thanking you.
Hello! I have a client who’s interested in using tagging to help create searchable content within slides. For example, they have four different categories for slide content across multiple presentations (Overview, Market, Product, Country). I’d like to assign a different shape to represent each of the four categories, where a blue square might represent Overview slide content. Then, when someone uses the keyword “Overview” to search for overview content (on Teams or SharePoint), these slides are easily identified. Is this something that’s possible with VBA code?
Hi Linda. That’s a very good question! Given the need is to search via SharePoint, VBA probably won’t help here as the PowerPoint file needs to be opened for VBA to examine its content. I have a sneaking suspicion that if you add keywords in the Tags field under File / Info that SharePoint may use this. But, that’s at the file level rather than the slide level. We have a PowerPoint add-in called ShowMaker that might be of interest as it allows you to add category metadata to slides and then the presenter can use that to filter the deck and export the required content. You can find an overview of it here: https://www.brightcarbon.com/showmaker/ and we could set up a demo if you’re interested (please use the Contact button at the top of this page if that’s the case).
I’ve just created an elearning package in PowerPoint using VBA , I didn’t realise it could sum up text boxes within PowerPoint to mark the qualification at the end. Also used AWS text to speech over the top of the learning . Looks great
Sounds like a fun and successful project Stu! Thanks for sharing 🙂
I have a bit of a tricky one but hoping it is possible to do with VBA. We offer training services to multiple clients that can be customized but the majority of training is consistent from one client to the next (main changes are the slide masters/formatting and addition/removal of certain sections).
What we want to do is create one master (or multiple) training document(s), and then use VBA’s to link it to the client specific PowerPoint. We want to link the master rather than using the “reuse slide” command so that if we update one file the other will automatically update as well.
Not sure if it matters, but our company uses sharepoint as storage
Hi Dave and thanks for a great question. VBA is an excellent solution for automating a manual process. In general, if a person can perform a task manually via a sequence of pre-defined steps then VBA can do it automatically, faster, and with less chance of mistakes for something done many times. We’d be happy set up a call to discuss your needs further and see what could be automated with VBA. If that’s of interest, please use the contact button at the top of the page and mention my name in the form.
PP does not seem to have the record macro feature. To write vba code in PP by someone who only worked with vba in excel, would require some prior knowledge. Is there a summary of the most common objects, methods etc to refer to?
Hi Reef. You’re correct that there’s no VBA macro recording feature in newer versions of PowerPoint. The best place to start learning is by purchasing a book (there’s one called “Mastering VBA for Microsoft Office 365” on Amazon or reading the extremely exciting Object Model documentation from Microsoft: https://docs.microsoft.com/en-us/office/vba/api/overview/powerpoint/object-model
Hi
Greeting
I had made a game in power point using VBA codes. At last it generate a report every time a candidate conduct the game . My requirement is to generate result in same excel sheet after conducting the game.
Like
Row 1 player 1 result
Row 2 player 2 result
I need your help
Regards
Hi Asheesh. It’s possible to use VBA to get PowerPoint to “talk” to Excel (and other Office apps) but it’s a bit complicated to mention in a comment here. We’d be happy to help if you’d like a quote or if you want to try yourself you could start with this: Set oXL = CreateObject(“Excel.Application”) and have a look at some online examples. I’d also recommend the book “Mastering VBA for Microsoft Office 365” available from Amazon.
If there are two colors of font in the textFrame, how to change the font of one color through VBA?
Hi Bruce. You could either iterate through the Characters collection of the TextRange2 object or the Runs collection which returns all of the TextRanges with the same style. Example: ActiveWindow.Selection.ShapeRange(1).TextFrame2.TextRange.Runs(1).Font.Fill.ForeColor.RGB
Hi – can you help, please?
How can I change the font color and size of the message box? What code will work and where will I put it? Creating an interactive game in powerpoint. Thank you!
—–
Sub Correct()
Points.Caption = (Points.Caption) + 10
Output = MsgBox(“Your answer is correct, well done!”, vbOKOnly, “Correct Answer”)
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Incorrect()
Points.Caption = (Points.Caption) – 5
Output = MsgBox(“Your answer is incorrect.”, vbOKOnly, “Wrong Answer”)
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Reset()
SlideLayout.Points.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub
———-
Good one!
Thanks for your explanation.
Hi Jamie, Is there any way to keep my macro save in a file so I can utilize on any other PPTs equivalent as.normal.dotm for Word, .xlam(add-in) for Excel.
Hi Anurag. Thanks for the question and Happy New Year! The best way to do this would be to export your project as a ppam and activate it as an add-in via the PowerPoint add-ins UI. Save your ppam in %AppData%\Microsoft\AddIns and then in the Windows PowerPoint Developer tab, click PowerPoint Add-Ins and add your ppam from there. If you’re not code-signing your VBA project, you may need to adjust Trust Centre settings. You could optionally build an EXE/MSI installer package for Windows and PKG for macOS, although that is a more complex topic.