Power point Progress Bar

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!

 

 

About the author: Hassan ElBanhawi

20 comments to “Power point Progress Bar”

You can leave a reply or Trackback this post.

  1. Kim Jin tae - December 12, 2024 at 12:58 pm Reply

    1,

  2. Temp Mail - August 3, 2025 at 10:32 pm Reply

    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

  3. Cappadocia family tours - August 9, 2025 at 3:50 am Reply

    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

  4. Bosphorus cruise - August 14, 2025 at 5:33 am Reply

    Bosphorus cruise Really appreciated the guide’s local tips. https://kulturzentrum-hermannstadt.ro/?p=6248

  5. Istanbul Old City tour - August 16, 2025 at 10:01 am Reply

    Istanbul Old City tour Learned a lot about Ottoman history. https://astria.usabestrealtor.com/?p=12605

  6. Bosphorus bridge tour - August 16, 2025 at 3:47 pm Reply

    Bosphorus bridge tour Very informative without being boring. https://vyaani.com/?p=2899

  7. Abel Rempel - August 17, 2025 at 11:37 am Reply

    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

  8. Kelsie Reynolds - August 18, 2025 at 5:40 am Reply

    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!

  9. Amaya Grant - August 18, 2025 at 2:50 pm Reply

    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

  10. Maida Little - August 19, 2025 at 1:12 am Reply

    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

  11. Turkish street food tour - August 19, 2025 at 3:12 am Reply

    Turkish street food tour Great for photographers, so many scenic spots. https://fanoosalinarah.com/?p=177647

  12. Bosphorus guided tour - August 20, 2025 at 9:06 am Reply

    Bosphorus guided tour Very interactive and engaging experience. https://gititacademyhubli.in/?p=11153

  13. Istanbul city guide - August 22, 2025 at 6:29 am Reply

    Istanbul city guide Everything ran smoothly, no waiting in lines. https://srawal.com/?p=13928

  14. Istanbul Bosphorus tour - August 23, 2025 at 12:46 pm Reply

    Istanbul Bosphorus tour I joined a half-day tour, but it felt very complete. https://elmercadodemipueblo.es/?p=216929

  15. Istanbul city tour - August 28, 2025 at 4:38 am Reply

    Istanbul city tour Istanbul tours are a must if you love architecture. http://navandhra.com/?p=38660

  16. Istanbul local tours - August 29, 2025 at 10:01 pm Reply

    Istanbul local tours I felt like I learned a lot in just one day. https://limoscene.us/?p=2817

  17. Istanbul food market tour - September 3, 2025 at 4:33 am Reply

    Istanbul food market tour The city tour gave me so many great photos. https://www.starflix.co.uk/?p=2173

  18. Galata Tower tour - September 4, 2025 at 9:44 am Reply

    Galata Tower tour The city tour gave me goosebumps, so beautiful. https://stelotechnology.com/?p=5313

  19. Underground Cities Turkey - October 28, 2025 at 3:53 pm Reply

    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

  20. 3 days london tour packages - November 12, 2025 at 4:06 am Reply

    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

Leave a Reply