How to create a next button in power point

[at51178]

Hey Guys
I am fooling around with powerpoint vb

and I would like to know how do I go about

creating a next slide button or a next button that when clicked it will take the user to the next slide.

 

[kesm]

Hi at51178,

Use the SlideShowShow Class With the 'Enum PpActionType' {ppActionEndShow = 6,ppActionFirstSlide = 3,ppActionLastSlide = 4, ppActionNextSlide = 1, ppActionPlay = 12}

Thanks Kes

Any more probs I will post you some code.

 

[at51178]

Can you break this code down a little and tell me what each code is suppose to do.

or better yet can you give me a bette example

 

[kesm]

Try this from a form command::


Private Sub CMB_Play_Click()

Dim ppt
Dim shs As SlideShowSettings

Set ppt = New PowerPoint.Application
ppt.Visible = True
ppt.Presentations.Open "c:\My Documents\ex_a2a.ppt"

Set shs = ppt.ActivePresentation.SlideShowSettings

With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
With .Run
.Height = 300
.Width = 400
End With
End With


With shs
.Run
End With

set shs = nothing
set ppt = nothing

End Sub