Applying changes to all slides in Powerpoint

[NickAC]

I searched for this but no luck. Total noob at writing macros and VB programming.

I created a simple little macro in Powerpoint 2003 - all it does is to remove the border around an imported image - i.e., right-click -> Format Autoshape -> Line Color -> No line:

Attribute VB_Name = "Module1"
Sub Macro1()
Attribute Macro1.VB_Description = "Macro recorded"
'
' Macro recorded 
'
 
    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
    With ActiveWindow.Selection.ShapeRange
        .Fill.Transparency = 0#
        .Line.Visible = msoFalse
    End With
End Sub

This macro works fine when executed on a slide. I'd like to change it now to have it run through all the slides in the presentation. I've been playing around with various options, reading VB help, etc., but no luck.