Macro for Creating a Text Box on all slides

[fritz78]

Is there a way to create a macro to place a small text box on every slide.
This is for creating manual page numbers (will type in desired page number).
I know how to create small macro for existing slide but do not want to run
for each individual slide. Rather just let it place the text box either on
all slides or if possible selected slides.

Not a VBA expert. PPT 2003, Win Xp.

THX! for your support.
Fritz.

 

[John Wilson]

Something like this for selected slides

Sub addTxtBox()
Dim osld As Slide
For Each osld In ActiveWindow.Selection.SlideRange
osld.Shapes.AddTextbox msoTextOrientationHorizontal, Left:=500, _
Top:=500, Width:=75, Height:=25
Next osld
End Sub

 

[fritz78]

Thank You John! Now is there a way to place the number 1 in the text box at
font size 10pt.

THX!
Fritz

 

[fritz78]

THX! Steve, that helps, very much appreciated. Not sure, has MS upgraded
the Page numbering options in PPT 2010? that is to let you number slides
possibly in sections?

Fritz