VBA : Number the slide if they are visible

Question

我有一个隐藏幻灯片的 PowerPoint 演示文稿。

我只想给可见的幻灯片编号。

我得到了这段代码:

Sub Numerotation()
Dim x As Integer
Dim diapo As Slide
For Each diapo In ActivePresentation.Slides
  If diapo.SlideShowTransition.Hidden = False Then
    x = x + 1
    diapo.HeadersFooters.Footer.Text = x
  Else
    diapo.HeadersFooters.Footer.Text = ""
  End If
Next
End Sub

我得到了这个错误:

Execution Error : '-2147188160 (80048240)':
HeaderFooter (unknown member) : Invalid request

我不明白为什么 vba 不能识别 HeaderFooter 成员 ( here is what MSDN says )

你能帮我找出问题所在吗？

Answer 1

MSDN 示例，通常情况下，充其量是半准确的。如果 Footer 对象不可见，尝试向其分配文本会导致您看到的错误。这是您的代码的一个小修改:

Sub Numerotation()
Dim x As Integer
Dim diapo As Slide
For Each diapo In ActivePresentation.Slides
  If diapo.SlideShowTransition.Hidden = False Then
    x = x + 1
    diapo.HeadersFooters.Footer.Visible = True
    diapo.HeadersFooters.Footer.Text = CStr(x)
  Else
    diapo.HeadersFooters.Footer.Visible = False
  End If
Next
End Sub