PowerPoint 自定义幻灯片答案

【问题标题】：PowerPoint custom slidesPowerPoint 自定义幻灯片
【发布时间】：2016-10-25 23:00:16
【问题描述】：

我想知道是否有人可以帮助我；我创建了一个非常大的 PowerPoint（2016 年），其中有不同的部分，我目前正在使用自定义下拉菜单来浏览幻灯片，但我想知道是否有办法（从第一张幻灯片）选择多张幻灯片（比如说 1、3、8、16、20）然后按 go。然后只会显示那些幻灯片。

不确定这是否可行，如果可以，您能否指出正确的方向？

提前致谢。

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

我不经常使用PowerPoint，如果这没有任何帮助，请见谅。

Dim iCount As Integer

Public Sub Load()
ListBox1.Clear
ListBox1.MultiSelect = fmMultiSelectMulti

For iCount = 1 To ActivePresentation.Slides(ActivePresentation.Slides.Count).SlideNumber
    ListBox1.AddItem iCount
Next iCount

End Sub

Private Sub CommandButton1_Click()

For iCount = 1 To ActivePresentation.Slides(ActivePresentation.Slides.Count).SlideNumber
    ActivePresentation.Slides(iCount).SlideShowTransition.Hidden = msoFalse
Next iCount

For iCount = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(iCount) Then ActivePresentation.Slides(iCount + 1).SlideShowTransition.Hidden = msoCTrue
Next iCount
End Sub

我在第一张幻灯片上创建了一个列表框和按钮（通过开发选项卡添加）。当运行子“加载”时，所有幻灯片编号都添加到此列表框中，然后当单击按钮时，所有选定的幻灯片都可见，所有其他幻灯片都隐藏。如果需要，这可以翻转。如果您需要任何帮助，请告诉我，我很乐意做出任何更改。

【讨论】：

谢谢，试过了，但没有成功，可能是我做的不对。你能给我发一份 PPt 让我看看吗？或者你想让我把我所做的事情发给你吗？
我在第一张幻灯片上创建了一个 ListBox 和 Button 并且没有重命名任何一个对象。然后我打开 VBA 编辑器并导航到第一张幻灯片，我添加了上面的代码并单击“加载”子并按 F5 运行它。这应该使用 powerpoint 中的所有幻灯片编号填充列表框。然后，您应该能够关闭 VBA 编辑器并使用第一张幻灯片上的 ListBox 选择要隐藏的幻灯片，当您单击按钮时，这些幻灯片应该被隐藏。请随时向我发送文件链接，我可以在其中为您添加代码，以便您弄清楚。
工作得很好，谢谢。您知道如何将数字更改为幻灯片的名称吗？我的幻灯片有诸如 Welcome、Quiz、About 等名称。
当然，应该很简单。尝试将ListBox1.AddItem iCount 更改为ListBox1.AddItem ActivePresentation.Slides(iCount).Name
没问题，如果您还需要什么，请告诉我。另外，您能否将上面的答案标记为有用/已回答？谢谢。