K
Kishor
Hi,
I am developing an application which is to be used with
power point. I am now in need of help from you guys.
In my Application (developing using VB.net), I am
creating the object of the power point everything is
working fine, but the events are not firing. I am here
pasteing code please see this.
'Declaration
Public WithEvents op As New PowerPoint.Application()
'Subs
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
op.Visible = Office.MsoTriState.msoTrue
op.Visible = True
op.WindowState =
PowerPoint.PpWindowState.ppWindowMaximized
op.Presentations.Open("D:\somefile.ppt",
Office.MsoTriState.msoTrue, Office.MsoTriState.msoTrue,
Office.MsoTriState.msoTrue)
End Sub
Private Sub op_SlideShowBegin(ByVal Wn As
PowerPoint.SlideShowWindow) Handles op.SlideShowBegin
MsgBox("Soni")
End Sub
Regards,
Kishor
I am developing an application which is to be used with
power point. I am now in need of help from you guys.
In my Application (developing using VB.net), I am
creating the object of the power point everything is
working fine, but the events are not firing. I am here
pasteing code please see this.
'Declaration
Public WithEvents op As New PowerPoint.Application()
'Subs
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
op.Visible = Office.MsoTriState.msoTrue
op.Visible = True
op.WindowState =
PowerPoint.PpWindowState.ppWindowMaximized
op.Presentations.Open("D:\somefile.ppt",
Office.MsoTriState.msoTrue, Office.MsoTriState.msoTrue,
Office.MsoTriState.msoTrue)
End Sub
Private Sub op_SlideShowBegin(ByVal Wn As
PowerPoint.SlideShowWindow) Handles op.SlideShowBegin
MsgBox("Soni")
End Sub
Regards,
Kishor