[vb6 sp5]
フォーム内にPowerPointのスライドショーを表示したいのですが、次の１〜３までしかわかりません
。
１．PowerPointのOLEコントローラーをフォームに貼り付ました
２．OLEコントローラーを右クリックし、「オブジェクトの挿入」→「ファイルから作成」でスライド
ショーのファイルを指定しました
３．OLEコントローラーを右クリックし、「表示」をクリックしたらスライドショーが再生されました

ここまでは本やインターネットで調べてみました。「VBでExcelを制御」とかその辺りから、「まずは
参照設定で・・・」とやっとたどり着いた次第です。

しかし、これをコマンドで書くとどうなるのかがわかりません。

コントローラーの使い方はこれでよいのでしょうか？
コントローラー上でF１してもヘルプファイルも見つからず、困っています。このような場合、まずど
のように調べたらよいのでしょうか？

よろしくお願いいたします。

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を押せば、ヘルプが見れるかと思います。

返信ありがとうございます。

教えていただいたコマンドでスライドショーの実行はできました。
コマンドの記述までしていただきありがとうございます。

ヘルプはPresentation上で、Ｆ１しても開くことができませんでした。
「複数の候補がみつかりました。トピックを選択してください」とまでは
ダイアログが開くのですが、選択すると「ヘルプファイルがありません」と言われてしまいます。

ただ、申し訳ありません。私の言葉が足りませんでしたm(_ _)m
フォームに貼り付けたコントロール内にスライドショーを開きたいんです。

Microsoftのページで調べてみましたところ、WebBrowserコントローラーに表示できるようです。
サンプルコードがあったので、これからトライしてみます。
（参考にしました⇒hhttp://support.microsoft.com/default.aspx?scid=kb;ja;243058
「[OFF2003] WebBrowser コントロールを使用して Office ドキュメントを開く方法」）

またいろいろと教えてください。

> ヘルプはPresentation上で、Ｆ１しても開くことができませんでした。
> 「複数の候補がみつかりました。トピックを選択してください」とまでは
> ダイアログが開くのですが、選択すると「ヘルプファイルがありません」と言われてしまいます。

パワーポイントのVBAヘルプは入っておりますでしょうか？

パワーポイントをふつうに起動して、マクロのヘルプが入っているかどうか
確認してみてはいかがでしょう？もし無いなら、この際入れておくとWebBrowser
で表示するときも便利ですよ〜 どちらにせよコードでプレゼンを制御するようですし・・

ご指摘の通り、パワーポイントのVBAヘルプが入っておりませんでした。
まずは自分でヘルプで調べてみないことには・・・
なので、入れておきました。

さて、WebBrowserですが、
コントロール内に表示されるようにはなったのですが・・・。
「ファイルのダウンロード」ダイアログが開いてしまいます。
スライドが開始されるところまでコマンドで動かしたいのですが、
なかなか解決できません。

Private Sub Command3_Click()      
      WebBrowser1.Navigate sFileName       ' sFileName="c:\test.ppt"
End Sub

コントローラの中にスクロールバーが表示されてしまうのも非表示にしたいと思っています。

何度も申し訳ありませんが、よろしくお願いいたします。

私のところでは、Microsoftのサンプルでうまく動きました。
ファイルのダウンロードは発生しませんが・・IEのセキュリティ
かな？

スクロールバーを消す方法は私にもわからないです。消す方法が
あるのかもしれませんが、、どうしてもということなら、私なら
ばスクロールバーが出る部分の上にフレームをかぶせて隠してし
まうかな＾＾：

また、ウィンドウの中でスライドショーする方法もわからないで
す。調べてはみたのですが、パワーポイントのマクロはあまり詳
しくないもので。。すみません

タイマーと組み合わせることで、スライドショーっぽくする手は
あるかなとおもいます。

> ファイルのダウンロードは発生しませんが・・IEのセキュリティ
> かな？
IEのセキュリティでした。
いろんな要因を考えなくてはならないんですね。とても勉強になります。

> スクロールバーを消す方法は私にもわからないです。消す方法が
> あるのかもしれませんが、、どうしてもということなら、私なら
> ばスクロールバーが出る部分の上にフレームをかぶせて隠してし
> まうかな＾＾：
同じ方法をとらせて頂きました。
なるほど！こんな工夫もアリなんですね。

> また、ウィンドウの中でスライドショーする方法もわからないで
> す。調べてはみたのですが、パワーポイントのマクロはあまり詳
> しくないもので。。すみません
スライドは自動再生に設定していたので、ダウンロードの発生が外れたら
そのまま再生されました。

コントロール上で右クリックするとプルダウンメニューが表示されますが、
これも表示／非表示の設定はできないのでしょうか？
プロパティを見つけられないので、教えてください。

> コントロール上で右クリックするとプルダウンメニューが表示されますが、
> これも表示／非表示の設定はできないのでしょうか？
> プロパティを見つけられないので、教えてください。

結局OLEを使われてますか？でしたら、「OLE1.AutoVerbMenu = False」です。
ブラウザコントロールでしたら、わからないです。。