Macro for Creating a Text Box on all slides

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
--
john ATSIGN PPTAlchemy.co.uk

Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html






"fritz78" wrote:

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.

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

THX!
Fritz

"John Wilson" wrote:

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
--
john ATSIGN PPTAlchemy.co.uk

Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html






"fritz78" wrote:

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.