Powerpoint

[mart1n23]

Hello Everyone.

I have a large Powerpoint document.
There is a text box on every slide. I want some code that will number all my slides in these textboxes, even if I have deleted some slides. This means the number of slides can be anything from 2-500!

Please somebody help. Else this is going to drive me mad!

 

[gwkenny]

.

Can do it via code and a special object, but honestly, that's a huge pain in the *** in powerpoint.

Why don't you just use the slide number feature on the Master slides in PowerPoint?

You can also change the starting number as well.

That'll automatically number your slides.

From help in PowerPoint, just search for "slide number".

 

[mart1n23]

Here's what i've got so far...

I've written this code to insert a textbox onto every remaining slide in the document.

Sub Slide_number()

    Dim SL As Slide

    intCounter = 1

    For Each SL In ActivePresentation.Slides
        With SL
            .Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=208.625, Top:=502.5, Width:=181.5, Height:=17).TextFrame _
            .TextRange.Text = "Page Ref: " + Format(((intCounter - 3) * 10), "#000")
        End With
        
        intCounter = intCounter + 1
    Next SL
End Sub

This works lovely, but ideally I want to insert the text into an existing textbox (TextBox4) on every slide rather than create a new one.
If I must create a new one, I need a way to set the font to size 8, and put a line around the textbox.

Can anybody help?

 

[gwkenny]

Just curious, what is the resistance to using PowerPoint's slide numbering feature?

 

[mart1n23]

I can't get that to work either.

The document currently has 67 slides, but in the future more will be added. The first page has options that delete slides automatically when a CommandButton is pressed. Once the slides have been deleted I want TextBox4 on every slide to show;

"Page Ref: " + Format(((Slide.SlideIndex - 3) * 10), "#000")

Can you give me some sample code to get me going please?

That would be a great help.

 

[gwkenny]

Ummm, there is no sample code for PowerPoint slide numbers.

Do you understand about Master slides? And objects on Master slides? Specifically the placeholder for slide numbers? PowerPoint help isn't bad about inserting slide numbers into presentation.

You are spending an awful amount of time and energy doing something that is already automated.

If you REALLY want to do it your way, the way to do it would be to insert a weird "invisible" character in your text box.

Your macro then loops through all the slides, then through all the objects on the slide looking for the weird character. If the object is found with the weird character, delete the object. Then insert the object with the weird character with the correct page number.

But that's a lot of code to do something that PowerPoint automatically does.

 

[mart1n23]

Do you understand about Master slides? And objects on Master slides? Specifically the placeholder for slide numbers?

No, I don't know. I'm fairly new to VB. I don't have anything against the way you're suggesting, I just have no idea how to start.

Could you write some code for me for the following scenario, and I can adapt it.

10 slides in a presentation. The first slide has a Command Button (CommandButton1), and All 10 Slides have a TextBox (TextBox1).
When the Command Button is Pressed, all the Slides are numbered in "TextBox1". If any slides are deleted before the button is pressed, the remaining slides are numbered in the same way.

For example, If slides 5, 6, and 9 were deleted, the remaining slides would be numbered, 1, 2, 3, 4, 5, 6, 7.

This would be a fantastic help.
Thankyou.

 

[gwkenny]

Okay.

There is no VB with regards to what you want to do.

Slide numbering is inherent and automatic in PowerPoint if you use the Master Slides.

There is no vb with regards to numbering with Master Slides.

Thus I can not give you any sample code.

PowerPoint help isn't bad about explaining inserting slide numbers into presentation.

PowerPoint help isn't that bad with regards to explaining master slides. Though an average PowerPoint user should be able to explain the concept to you.

My suggestion is to drop VB in this case, and look around for education on Master Slides in PowerPoint and Slide Numbering.

Best of luck to yah.