在 VBA 中打印目录时忽略隐藏的幻灯片 - Powerpoint答案

【问题标题】：Ignore hidden slides when printing a table of contents in VBA - Powerpoint在 VBA 中打印目录时忽略隐藏的幻灯片 - Powerpoint
【发布时间】：2015-09-30 09:42:30
【问题描述】：

我正在尝试在我的 powerpoint 演示文稿的开头写一个目录。

我的代码获取了所有带有标题的幻灯片，并将它们连同它们的索引一起打印出来。

我想知道在哪里可以找到确定幻灯片是否隐藏的命令。我搜索了 msdn VBA Powerpoint 部分，但没有找到。

例如，我目前的项目是：

For y = 3 To ActivePresentation.Slides.Count
Set Diapo = ActivePresentation.Slides(y)
'si la diapo a un titre
If Diapo.Shapes.HasTitle Then
Set titre = Diapo.Shapes.Title
texte_ajout = texte_ajout & Format(y, "0 - ") & titre.TextFrame. _
TextRange.Text & Chr(13) & vbCrLf
End If
Next y

它计算所有幻灯片，包括那些可能被隐藏的幻灯片。

我想（如果可能的话）在第一个 if 之前和 set Diapo 之后写这个

If Diapo.SlideShowTransition.Hidden = msoTrue Then
Set counthidden = counthidden + 1

...

texte_ajout = texte_ajout & Format(y-counthidden, "0 - ") & titre.TextFrame. _
TextRange.Text & Chr(13) & vbCrLf
End If

（我先将 counthidden 定义为 byte，然后再定义为 long，但它不起作用）有可能吗？

【问题讨论】：

标签： vba hidden powerpoint

【解决方案1】：

给你;）

For y = 3 To ActivePresentation.Slides.Count
    Set Diapo = ActivePresentation.Slides(y)
    If Diapo.SlideShowTransition.Hidden = msoTrue Then 'other value : msoFalse
        CountHidden = CountHidden + 1
    Else
        'The slide is not hidden
        If Diapo.Shapes.HasTitle Then
            'si la diapo a un titre
            Set titre = Diapo.Shapes.Title
            texte_ajout = texte_ajout & Format(y - CountHidden, "0 - ") & titre.TextFrame. _
                TextRange.Text & Chr(13) & vbCrLf
        End If
    End If
Next y

【讨论】：

谢谢，这正是我正在寻找的功能。你知道我是否可以计算那些隐藏的幻灯片并将该数字动态减去幻灯片计数吗？（我编辑了问题，出现“未定义对象”错误）
不要使用 Set 关键字，它只用于对象变量，所以 String、Long、Boolean... 不能使用它！它适用于形状、工作簿、工作表……当您说减去幻灯片计数时，您是指 Slides.Count 属性吗？因为那样，你不能这样做：Property Count As Long, Read Only
没有set关键字，效果更好。对于减法部分，我指的是 y 的值，而不是表示属性。例如，如果我在索引 8 处有一张隐藏幻灯片，在 9 处有一张标题幻灯片，我希望标题幻灯片以数字 8 出现在 ToC 中。
我会说是的，如果您使用类似 Format(y - counthidden, "0 - ") 的东西。顺便说一句，我很高兴你发布这个，因为我很久以前就想构建这样的东西，但我不认为Shapes 中的HasTitle 意味着幻灯片有标题或没有标题！ :)
终于又能上网了，发帖提问：stackoverflow.com/questions/32867412/…