Dim document As Object Private Sub Form_Load() Me.WebBrowser1.Navigate ("C:\プレゼン.pps") End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set document = pDisp.Document '読み込み終わった後の処理 End Sub