-
VBA Help - Moving Page Numbers in Each Slide in PPT
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!
Tags for this Thread
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules