Skip to content

Instantly share code, notes, and snippets.

@ateneva

ateneva/ForEachS_ShowSlideID.bas

Created August 2, 2018 12:23
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/b51205d08026667c3311fb07fb4a4a92 to your computer and use it in GitHub Desktop.
Save ateneva/b51205d08026667c3311fb07fb4a4a92 to your computer and use it in GitHub Desktop.
Download ZIP
How do I show the Slide ID of a single slide?
Raw
ForEachS_ShowSlideID.bas
Sub ShowSlideID()
Dim p As Presentation
Set p = ActivePresentation
Dim No As Integer
Dim i As Integer
'***************************
i = InputBox("Enter Slide number")
No = p.Slides(i).SlideID
MsgBox (No)
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment