Skip to content

Instantly share code, notes, and snippets.

@ateneva

ateneva/ForEachS_Display_SlideIDs.bas

Last active August 2, 2018 15:50
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ateneva/2830d6e3a83c72b23ac036ff88b44f4b to your computer and use it in GitHub Desktop.
Save ateneva/2830d6e3a83c72b23ac036ff88b44f4b to your computer and use it in GitHub Desktop.
Download ZIP
How do I show the slide IDs of multiple slides?
Raw
ForEachS_Display_SlideIDs.bas
Sub Display_SlideIDs()
Dim i As Integer
Dim PPS As Slide
Dim p As Presentation
Set p = ActivePresentation
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For Each PPS In p.Slides
If PPS.SlideIndex = 2 Or PPS.SlideIndex = 4 Or PPS.SlideIndex = 7 Or _
PPS.SlideIndex = 8 Or PPS.SlideIndex = 9 Or PPS.SlideIndex = 10 Or PPS.SlideIndex = 11 Or _
PPS.SlideIndex = 23 Or PPS.SlideIndex = 29 Or PPS.SlideIndex = 52 Then
MsgBox (PPS.Shapes.Title.TextFrame.TextRange & " = " & PPS.SlideID)
End If
Next PPS
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment