text 如何显示单张幻灯片的幻灯片ID？

Posted 2021-05-02

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