Project refers to the Kingsoft. Office. Interop. Wppapi see PowerPoint is its members
To refer to Microsoft. Office. Interop. PowerPoint
This time use
Dim oPPT. As Microsoft Office. Interop. PowerPoint. Application
OPPT.=New Microsoft Office. Interop. PowerPoint. Application
AddHandler oPPT. SlideShowBegin AddressOf SlideShowBegin1
Private Sub SlideShowBegin1 (ByVal Wn. As Microsoft Office. Interop. PowerPoint. SlideShowWindow)
. Here you can capture the Microsoft Office powerpoint
End Sub
But if use
Dim oPPT As PowerPoint. Application
OPPT=New PowerPoint. Application
AddHandler oPPT. SlideShowBegin AddressOf SlideShowBegin1
Private Sub SlideShowBegin1 (ByVal Wn As PowerPoint. SlideShowWindow)
There will not be able to capture the WPS PPT to
End Sub
Under the great god give advice or comments, please
Total wealth only 20 points, sorry
CodePudding user response:
OPPT=PowerPointUsing the
OfficePPT=TryCast (Marshal. GetActiveObject (" PowerPoint. Application "), oPPT. Application)
Can control the WPS in preview mode transitions, but page in full screen mode, display the page won't flip,
Issue back to the origin, status, do not know if showing,,
OfficePPT=TryCast (Marshal. GetActiveObject (" PowerPoint. Application "), oPPT. Application)
The oPPT. If Application into oPPT. EApplication said SlideShowBegin didn't give arguments
AddHandler officePPT SlideShowBegin, AddressOf oSlideShowBegin1
CodePudding user response:
Why AddHandler officePPT SlideShowBegin, AddressOf oSlideShowBegin1 not triggeredPrivate Sub oSlideShowBegin1 (ByVal Wn As PPT. SlideShowWindow)
Me. The ListBox1. Items. The Add (" to ")
End Sub