vba - 如何不为PPT中的隐藏幻灯片计算页码？

Question

在演示模式下，我只希望未隐藏的幻灯片以连续的页码显示。如何避免隐藏的幻灯片被计数？

Answer 1

谢谢史蒂夫。我在其他地方找到了我的问题的答案。通过以下功能，您可以避免在演示模式下隐藏的幻灯片干扰未隐藏的幻灯片的幻灯片编号。

Sub Number_NonHidden()
'For v.2007 onwards only
Dim osld As Slide
Dim objSN As Shape
Dim lngNum As Long
'check all slides
For Each osld In ActivePresentation.Slides
'Is it hidden
If osld.SlideShowTransition.Hidden Then
osld.HeadersFooters.SlideNumber.Visible = False
Else
osld.HeadersFooters.SlideNumber.Visible = True
Set objSN = getNumber(osld)
lngNum = lngNum + 1
If Not objSN Is Nothing Then ' there is a number placeholder
objSN.TextFrame.TextRange = CStr(lngNum + 1)
End If
End If
Next osld
End Sub

Function getNumber(thisSlide As Slide) As Shape
For Each getNumber In thisSlide.Shapes
If getNumber.Type = msoPlaceholder Then
If getNumber.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then
'it's the slide number
Exit Function
End If
End If
Next getNumber
End Function

为了避免标题幻灯片被编号，请按如下所示插入lngNum = -1并删除主标题幻灯片中的幻灯片编号框。

'check all slides
lngNum = -1
For Each osld In ActivePresentation.Slides