| 投稿日 | ： 2005/10/26(Wed) 22:09 |
| 投稿者 | ： なお |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: PowePointのスライドショーをフォーム内に表示したい |
VB6＋Office2000で試しています。勘違いしていたらごめんなさいね。
参照設定で「Microsoft Office 9.0 Object Library」にチェックを入れ、
フォームにOLE1を作成しておきます。テスト用のパワーポイントファイル
としてC:\test.pptを用意しておきます。
んで、コマンドボタンを２つ配置しておいて、
Private Sub Command1_Click()
OLE1.CreateEmbed "C:\test.ppt"
End Sub
Private Sub Command2_Click()
Dim objPre As Presentation
Set objPre = OLE1.object
objPre.SlideShowSettings.Run
End Sub
としてCommand1→Command2ボタンを押すと、スライドショーが開始されます。
Dim objPre As Presentation
のPresentationオブジェクトはパワーポイントのオブジェクトなので、コレを
選択してF1を押せば、ヘルプが見れるかと思います。