' PowerPoint VBA Macro to update slide number text in slides where this placeholder is visible.
' Written By : Jamie Garroch of YOUpresent Ltd. http://youpresent.co.uk/
' Date : 21NOV2016
' Notes : this replaces the dynamic ‹#› field in the slide master with fixed text
' so if you delete, add, move slides, you'll need to run this macro again
' to update the text in the slide number placeholder.
Dim oSld As Slide
Dim oShp As Shape
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.Type = msoPlaceholder Then
If oShp.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
oShp.TextFrame.TextRange.Text = "Page " & oSld.SlideIndex & " of " & ActivePresentation.Slides.Count
Open in new window
ActivePresentation.Slides(1).HeadersFooters.SlideNumber.Visible = msoFalse
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.