PowerPoint If Statement to open a UserForm

[MHamid]

Hello,

I was wondering if it is possible to use a vba code that will open a UserForm based on the current open slide in Normal/Edit View?

I tried the code below, but I'm getting an error message (Object variable or With block variable not set.

Sub UserForm()
Dim ActiveSlide As Slide
If ActiveSlide = ActivePresentation.Slides(1) Then
    frmChecklist.Show vbModeless
End If
End Sub

What I need to do is:

• If Slide 0 is the current active presentation slide, then open userform1.
• If Slide 1 is the current active presentation slide, then open userform1 and userform2.
• etc.

Thank you

 

[steve the fish]

This is an excel forum but as help you could use something like this:

Dim sld As Slide

Set sld = ActiveWindow.View.Slide

Select Case sld.Name
    Case ActivePresentation.Slides(1).Name
        UserForm1.Show vbModeless
    Case ActivePresentation.Slides(2).Name
        MsgBox "Slide 2"
End Select

 

[MHamid]

Hello,

Thank you. I understand that this is an Excel forum, but I really needed the help and was not sure where else to go to get some help quickly.
Would you happen to know if there is a way to get this work that when a user goes to the slide, the UserForm will automatically open instead of clicking on the macro to run if per slide?

Thank you

 

[MHamid]

Hello,

I need some suggestions or some direction.

Thank you

 

[MHamid]

Can someone at least direct me to a forum for PowerPoint VBA questions?