パワーポイント オブジェクトへ複数の動作設定を実行させたい

質問

複数のスライド(フォルダの階層アリ）をリンクして資料を作成しています。
しかし、その資料を閲覧していると、たくさんのパワーポイントファイルが開いたままになり、それの解消策を考えています。

単純にまず２つのファイルの例で考えてみます。
１．Ａスライド　→　Ｂスライドへ　ハイパーリンクで飛びます。
２．Ｂスライドの最後のページにＡスライドへ戻るリンクボタンが
あります。

このＢスライドのボタンにＢスライドの終了と、Ａスライドへのリンクを登録したいのです。
通常パワーポイントの「オブジェクトの動作設定」では、1つのことしか選べません。
ですので、マクロでやってみようと思いました。
しかし記録マクロの知識しかなく、２回に分けて記録したマクロを
いろいろ編集してみましたが、今度は何も動かなくなります。

最後の黒い画面までいけば終了するのですが、そうでなくリンクして
いければと思っています。
マクロで可能でしょうか？他にアイデアなどありましたら、ご指導
アドバイスをどうぞよろしくお願いします。

office2003　winXP HE
資料は最終的にプレゼンテーションパックにてCDにします。

記録マクロ１
Sub 終了()
ActiveWindow.Selection.SlideRange.Shapes("AutoShape 26").Select
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
ActivePresentation.Close
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoTrue
End With
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseOver)
.Action = ppActionNone
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
End Sub

記録マクロ２
Sub リンク2()

ActiveWindow.Selection.SlideRange.Shapes("AutoShape 26").Select
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
.Hyperlink.Address = "D:\スライドA.pps"
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoTrue
End With
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseOver)
.Action = ppActionNone
.SoundEffect.Type = ppSoundNone
.AnimateAction = msoFalse
End With
End Sub

回答No.2

koko88okok

No.1

> 教えていただいたこのやり方は他のパソコンでは可能でしょうか？

確認はしていませんが、『資料は最終的にプレゼンテーションパックにてCDにします。』とのことなので、PPTをインストールしていないPCでもスライドショーを再生できますので、PCの設定とは無関係に思います。

お礼

koko88okok様
ありがとうございます。
今　パワーポイントが入ってないパソコンがないので
ぜひ確認してみたいと思います。
パワーポイントが入っているパソコンではやはり黒画面がでました。
ppsにしても同じようです。

回答No.1

koko88okok

> このＢスライドのボタンにＢスライドの終了と、Ａスライドへのリンクを登録したいのです。

ハイパーリンク先のスライドを最後まで表示する場合は、一般の機能のままで、自動的にハイパーリンク元のスライドに戻ります。
（「オブジェクトの動作設定」は不要ということです。PPT2007で確認しました。)
下記URLのページの「2．他のプレゼンテーションへリンクさせて表示させる方法」の最後にある「ワンポイント」の欄をご覧下さい。

最後の黒い画面を表示したくない場合は、
「ツール」→「オプション」→「表示」→「スライドショー」の「最後に黒いスライドを表示」のチェックを外します。

「オブジェクトの動作設定の設定方法」
http://www.microsoft.com/japan/office/previous/xp/suminaka/powerpoint/sousa2002/sousa4_1_5.htm

お礼

koko88okok様
ご回答ありがとうございます。
たしかにそうですね。難しく考えすぎていました。
Ｂスライドに「Ａスライドへ戻る」というボタンを作っているものですからかならずリンクしなければと思っていましたが、
ボタンの表示は「戻る」としながら、動作設定は【スライドの終了】と
しておけば戻ったように見えますね。
スライドの途中でもこのようにすればいいと気づきました。
リンク先のページも大変勉強になりました。

資料中には戻るボタンがないところもありまして、最後の画面までいったら黒くならないほうがいいのですが、

＞最後の黒い画面を表示したくない場合は、
＞「ツール」→「オプション」→「表示」→「スライドショー」の
＞「最後に黒いスライドを表示」のチェックを外します。
教えていただいたこのやり方は他のパソコンでは可能でしょうか？

資料はたくさんの方に配るものなので、これから他バージョンなんかで
確認していきたいと思っています。