Macro for Creating a Text Box on all slides

  • Thread starter Thread starter fritz78
  • Start date Start date
F

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.
 
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
 
Thank You John! Now is there a way to place the number 1 in the text box at
font size 10pt.

THX!
Fritz
 
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
 
Back
Top