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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了text 如何显示多张幻灯片的幻灯片ID?相关的知识,希望对你有一定的参考价值。

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

以上是关于text 如何显示多张幻灯片的幻灯片ID?的主要内容,如果未能解决你的问题,请参考以下文章