This code will help you to add a progress bar to your power point.
This can be useful for:
- Controlling your presentation time.
- Keeping the attention of your audience.
VBA Code:
Sub AddProgressBar()
On Error Resume Next
Dim slide As slide
Dim X As Integer, Y As Integer, Z As Integer
X = 0 'total unhidden slides
Y = 0 'Unhidden so far
Z = 0 'Total
' Loop through all slides in the presentation to count slides and delete previous bars
For Each slide In ActivePresentation.Slides
ActivePresentation.Slides(X + 1).Shapes("HMB").Delete
If slide.SlideShowTransition.Hidden = False Then
X = X + 1
End If
Next slide
' Loop through all slides in the presentation to add the bars based on required width
For Each slide In ActivePresentation.Slides
Z = Z + 1
ActivePresentation.Slides(Z).Shapes("HMB").Delete
If slide.SlideShowTransition.Hidden = False Then
' Increment the counter if the slide is not hidden
Y = Y + 1
Set HMBs = ActivePresentation.Slides(Z).Shapes.AddShape(msoShapeRectangle, 0, ActivePresentation.PageSetup.SlideHeight - 32, ActivePresentation.PageSetup.SlideWidth * Y / X, 15)
'HMBs.Fill.ForeColor.RGB = RGB(255, 255, 255) 'white bar
'HMBs.Fill.ForeColor.RGB = RGB(255, 0, 0) 'red bar
HMBs.Fill.ForeColor.RGB = RGB(0, 255, 0) 'red bar
HMBs.Name = "HMB"
End If
Next slide
End Sub
Thank you!
33 comments to “Power point Progress Bar”
You can leave a reply or Trackback this post.
Kim Jin tae - December 12, 2024 at 12:58 pm
1,
Temp Mail - August 3, 2025 at 10:32 pm
I loved as much as youll receive carried out right here The sketch is tasteful your authored material stylish nonetheless you command get bought an nervousness over that you wish be delivering the following unwell unquestionably come more formerly again since exactly the same nearly a lot often inside case you shield this hike
Cappadocia family tours - August 9, 2025 at 3:50 am
Cappadocia family tours David P. ★★★☆☆ Balloon flight amazing BUT… 3AM pickup felt brutal. Warn clients about pre-dawn starts! https://www.istta.org.tr/pamukkale-tours.html
Bosphorus cruise - August 14, 2025 at 5:33 am
Bosphorus cruise Really appreciated the guide’s local tips. https://kulturzentrum-hermannstadt.ro/?p=6248
Istanbul Old City tour - August 16, 2025 at 10:01 am
Istanbul Old City tour Learned a lot about Ottoman history. https://astria.usabestrealtor.com/?p=12605
Bosphorus bridge tour - August 16, 2025 at 3:47 pm
Bosphorus bridge tour Very informative without being boring. https://vyaani.com/?p=2899
Abel Rempel - August 17, 2025 at 11:37 am
I do agree with all the ideas you have introduced on your post They are very convincing and will definitely work Still the posts are very short for newbies May just you please prolong them a little from subsequent time Thank you for the post
Kelsie Reynolds - August 18, 2025 at 5:40 am
Your blog is a constant source of inspiration for me. Your passion for your subject matter is palpable, and it’s clear that you pour your heart and soul into every post. Keep up the incredible work!
Amaya Grant - August 18, 2025 at 2:50 pm
Simply wish to say your article is as amazing The clearness in your post is just nice and i could assume youre an expert on this subject Well with your permission let me to grab your feed to keep updated with forthcoming post Thanks a million and please carry on the gratifying work
Maida Little - August 19, 2025 at 1:12 am
Attractive section of content I just stumbled upon your blog and in accession capital to assert that I get actually enjoyed account your blog posts Anyway I will be subscribing to your augment and even I achievement you access consistently fast
Turkish street food tour - August 19, 2025 at 3:12 am
Turkish street food tour Great for photographers, so many scenic spots. https://fanoosalinarah.com/?p=177647
Bosphorus guided tour - August 20, 2025 at 9:06 am
Bosphorus guided tour Very interactive and engaging experience. https://gititacademyhubli.in/?p=11153
Istanbul city guide - August 22, 2025 at 6:29 am
Istanbul city guide Everything ran smoothly, no waiting in lines. https://srawal.com/?p=13928
Istanbul Bosphorus tour - August 23, 2025 at 12:46 pm
Istanbul Bosphorus tour I joined a half-day tour, but it felt very complete. https://elmercadodemipueblo.es/?p=216929
Istanbul city tour - August 28, 2025 at 4:38 am
Istanbul city tour Istanbul tours are a must if you love architecture. http://navandhra.com/?p=38660
Istanbul local tours - August 29, 2025 at 10:01 pm
Istanbul local tours I felt like I learned a lot in just one day. https://limoscene.us/?p=2817
Istanbul food market tour - September 3, 2025 at 4:33 am
Istanbul food market tour The city tour gave me so many great photos. https://www.starflix.co.uk/?p=2173
Galata Tower tour - September 4, 2025 at 9:44 am
Galata Tower tour The city tour gave me goosebumps, so beautiful. https://stelotechnology.com/?p=5313
Underground Cities Turkey - October 28, 2025 at 3:53 pm
Underground Cities Turkey Grace L. ★★★★★ Turkish Night show was EPIC! Whirling dervishes, folk dances, and unlimited local wine. Book the front row! https://ecotoursturkey.com/antalya-all-inclusive-tours.html
3 days london tour packages - November 12, 2025 at 4:06 am
3 days london tour packages Ethan J. Sunrise over Cappadocia from a balloon — the most magical thing I’ve ever seen. https://curacaofascinatingtours.com/tours/tour-details.php?TourName=12-day-christmas-tour-turkey
Открыть счет на binance - December 14, 2025 at 1:36 pm
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me.
Binance注册 - December 19, 2025 at 9:49 pm
Thank you for your sharing. I am worried that I lack creative ideas. It is your article that makes me full of hope. Thank you. But, I have a question, can you help me? https://www.binance.com/register?ref=IHJUI7TF
binance開戶 - January 13, 2026 at 4:58 am
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me. https://www.binance.info/register?ref=IXBIAFVY
Binance美国注册 - January 26, 2026 at 3:18 am
Thank you for your sharing. I am worried that I lack creative ideas. It is your article that makes me full of hope. Thank you. But, I have a question, can you help me? https://accounts.binance.com/en/register?ref=JHQQKNKN
777slotsbet - January 30, 2026 at 1:54 am
777 Slots Bet toàn game slot dễ chơi dễ trúng. Quay slot giải trí mà lại có cơ hội kiếm tiền thật nữa chứ. Vào 777slotsbet để thử vận may ngay thôi!
vn123 phiên bản mới - January 30, 2026 at 1:54 am
Anyone knows where to grab the latest version of VN123? Always gotta keep up with the updates, right? Seriously don’t wanna miss anything. Gonna find that vn123 phiên bản mới ASAP!
slub88 - January 30, 2026 at 1:55 am
Just giving slub88 on sclub88vip.com a whirl. Seems pretty decent, worth a look if you’re after some fun. Link’s here: slub88
binance account - January 30, 2026 at 6:35 am
Your point of view caught my eye and was very interesting. Thanks. I have a question for you. https://accounts.binance.info/register-person?ref=IXBIAFVY
100 USDT - February 5, 2026 at 2:33 pm
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me.
binance account creation - February 5, 2026 at 4:58 pm
I don’t think the title of your article matches the content lol. Just kidding, mainly because I had some doubts after reading the article.
Създаване на профил в binance - February 6, 2026 at 2:51 am
Your article helped me a lot, is there any more related content? Thanks!
Skapa personligt konto - February 17, 2026 at 6:18 am
Your point of view caught my eye and was very interesting. Thanks. I have a question for you. https://accounts.binance.com/ru/register?ref=O9XES6KU
免费Binance账户 - February 23, 2026 at 12:21 pm
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me. https://www.binance.com/lv/register?ref=SMUBFN5I