Hi,

I am trying to loop through each slide in ppt and move the page number to a new location. The code below seems to work for only the selected slide but not for all slides in the ppt.

Sub MovePageNumber()

Dim sld as Slide
Dim j as Shape

For Each sld In ActivePresentation.Slides
Set j = ActiveWindow.Selection.SlideRange.Shapes("PageNumber")

j.Left = 775
j.Top = 5

Next sld

End Sub

Many thanks in advance!