怎么按回车就发了呢?Option Explicit Private mPPt ''As PowerPoint.Application Private Sub Command1_Click() ''上一页 mPPt.SlideShowWindow.View.Previous End Sub Private Sub Command2_Click() ''下一页 mPPt.SlideShowWindow.View.Next End Sub Private Sub Form_Load() Wb.Navigate "f:\ppt.ppt" End Sub Private Sub Wb_DocumentComplete(ByVal pDisp As Object, URL As Variant) On Error Resume Next ''放在这里也可以 Set mPPt = pDisp.Document End Sub
想做两个按钮,上一页,下一页,点击一下按钮,webbrowser1里的文件会翻一页,
请高手解答
Private mPPt ''As PowerPoint.Application
Private Sub Command1_Click()
''上一页
mPPt.SlideShowWindow.View.Previous
End Sub
Private Sub Command2_Click()
''下一页
mPPt.SlideShowWindow.View.Next
End Sub
Private Sub Form_Load()
Wb.Navigate "f:\ppt.ppt"
End Sub
Private Sub Wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next ''放在这里也可以
Set mPPt = pDisp.Document
End Sub
pPres.SlideShowWindow.View.GotoSlide(3),没反应,每次还是显示的第一页