vb6のOLEコンテナ上にパワーポイントファイルをリンクして
スライドを切り替え表示したいのですがうまくいきません。

　あちらこちらの掲示板を見て歩いたのですが、該当する物を見つけられず
ほとほと困っています。

　どなたかご教示いただけませんでしょうか。
よろしくお願いいたします。

OLE コンテナは、無条件に最初のスライドを表示します。そして、通常の方法では、表示
するスライドを切り替えることが出来ません。

「最初のスライドなら」ということで、「最初のスライドを最後に持っていって、2 番目
のスライドを最初にしてしまう」という技も出来ます。ただ、遅いですが。(^^;
    Dim prez As Object

    Set prez = OLE1.object
    With prez.Slides
        .Item(1).MoveTo .Count
    End With
    OLE1.Refresh

「スライドショーをしたい」ということでしたら、
    OLE1.DoVerb
です。ただし、全画面になります。ウインドウ内でスライドショーをする方法はないと思
われます。「ウインドウ内のスライドショー」を実行すると、パワーポイントが表示され
た上で、その中でスライドショーを開始してしまいます。(v_v)

藤代千尋様

　ご回答ありがとうございました。
実は藤代様が書き込まれているであろうと思われる別掲示板を
ここに書き込む前に参照させて頂いていましたが、

>         .Item(1).MoveTo .Count

の（）内を2,3,4,5,6・・・・と変化させても適切なスライドが
表示されないもので困っていました。
たとえば（3）にするとスライド1が表示されます。

（ただし起動時にデフォルトのスライド1が表示され、
ご教示頂いた方法の（1）の設定でスライド2は表示されます）

　私のような現象はパワーポイントファイルの作りがおかしいのでしょうか？

> たとえば（3）にするとスライド1が表示されます。

私が提案した方法をご理解されているでしょうか？(^^;

[1][2][3][4]

とスライドがあった場合、[1] を後ろに持っていって、

   [2][3][4][1]

とすることで、[2] を表示しています。[3] を表示しようと思ったら、

      [3][4][1][2]

となるよう、2 枚移動させないといけないんです。

藤代千尋 様

　すみません。ご指摘の通り間抜けな勘違いをしていました。

　ご指摘の内容に沿ってどうさせたところ、
仰せの通りに動作しました。

　ただご教示頂いたように動作時間がかかるので、現在工夫中です。
もしうまくいけば報告させて頂きます。

　本当にありがとうございました。