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

Posted 2021-05-02

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