Deleting a progress bar from PowerPoint presentation [Solved/Closed]

lohbecej
Posts
2
Registration date
Sunday December 9, 2012
Last seen
December 10, 2012
- Dec 9, 2012 at 09:06 PM - Latest reply: lohbecej
Posts
2
Registration date
Sunday December 9, 2012
Last seen
December 10, 2012
- Dec 10, 2012 at 01:36 PM
Hello,

I used the following method to add a progress bar to my PowerPoint presentation - now I don't like it.

http://ccm.net/faq/937-insert-a-progress-bar-to-powerpoint-presentation

How do I get rid of it??



See more 

2 replies

Zohaib R
Posts
2421
Registration date
Sunday September 23, 2012
Last seen
July 16, 2018
- Dec 10, 2012 at 12:10 AM
0
Thank you
Hi lohbecej,

To get rid of this progress bar make the following changes to the module:

Replace:

Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)

With:

Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)

Run the macro, the progress bar should not appear now.

Do reply with results.
lohbecej
Posts
2
Registration date
Sunday December 9, 2012
Last seen
December 10, 2012
- Dec 10, 2012 at 01:36 PM
0
Thank you
Hi Zohaib,

It worked! Thanks for your help!

Regards,
Eric