Open userform in powerpoint from excel

Sir,
I have an Userform in PowerPoint say Userform1. Now I want to open this userform1 from excel sheet(command button). But below code is not working.
NOTE: Frist I opened PowerPoint & then pressed command button in excel.

Code:

---

Sub showUserForm()
Dim PowerPointApp As Object
Set PowerPointApp = GetObject(Class:="Powerpoint.application")
PowerPointApp.Run (PowerPointApp.ActivePresentation.Name & "!UserForm1.Show")
End Sub

---

I don't do PP, but maybe something like:

Code:

---

Dim PPfile as Object
Set PPFile = PowerPointApp.Open(PPFullFileName)
PPFile.PPSubName

---

Where PPFullFileName is the path and name to the pp file and PPSubName is the Name of a Procedure in the PP file that shows the UserForm in the PP File.

Code:

---

Public Sub PPSubName()
  UserForm1.Show
End Sub

---

GetObject(Class:="Powerpoint.application") Opens a new PowerPoint with no file selected. Declaring the Form Show Sub as Public lets another Application(Excel) run it

The code to open the userform needs to be in the open PPT presentation

If the sub is called showform and is in Module1

Excel code woulkd look like

Code:

---

Sub testme()
Dim ppt As Object
Dim strName As String
Set ppt = GetObject(Class:="PowerPoint.Application")
strName = ppt.activepresentation.Name
ppt.Run strName & "!Module1.showform"
End Sub

---

Quote:

---

Originally Posted by John Wilson

The code to open the userform needs to be in the open PPT presentation

If the sub is called showform and is in Module1

Excel code woulkd look like

Code:

---

Sub testme()
Dim ppt As Object
Dim strName As String
Set ppt = GetObject(Class:="PowerPoint.Application")
strName = ppt.activepresentation.Name
ppt.Run strName & "!Module1.showform"
End Sub

---

---

Thanks Sir. Its working.

Since I am an inexperienced microsoft office user, I needed some help with Excel. Specifically, link excel to powerpoint in preparing a presentation. For me, the article on this topic became useful. Everything is very accessible and step by step.