PowerPoint自定义幻灯片

时间:2016-10-25 13:23:41

标签: vba powerpoint

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

不确定这是否可行,如果可以的话,你能指出我正确的方向吗?

提前致谢。

1 个答案:

答案 0 :(得分:0)

我不经常使用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

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