Ｐａｇｅ 718 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼再びパワーポイントとのリンクについて TOSHI 03/2/9(日) 20:40 ┗Re:再びパワーポイントとのリンクについて sokrates 03/2/9(日) 21:26 ┗Re:再びパワーポイントとのリンクについて TOSHI 03/2/9(日) 21:30 ┗Re:再びパワーポイントとのリンクについて こうちゃん 03/2/10(月) 13:24 ┗Re:再びパワーポイントとのリンクについて TOSHI 03/2/10(月) 19:53 ─────────────────────────────────────── ■題名 ： 再びパワーポイントとのリンクについて ■名前 ： TOSHI <nakayama@do-frontier.com> ■日付 ： 03/2/9(日) 20:40 -------------------------------------------------------------------------
| 以前エクセルからパワーポイントのスライドを実行する方法を質問させていただきました。 その節はとても早い回答を頂き解決できました。ありがとうございました。 再びパワーポイントとのリンクで質問させてください。 今回は、エクセルからパワーポイントの特定のファイルの中の、特定の「スライド」を実行したいのです。方法はあるでしょうか？ よろしくお願いいたします。 |
| ▼TOSHI さん： もっとも単純な方法は以下の通りです。 パワーポイントのスライドショーメニュー ↓ 「目的別スライドショー」で、スライドを選択 ↓ 「スライドショーの設定」のスライドの表示で「目的別スライドショー」を選択 ↓ エクセルで当該ファイルにハイパーリンクを設定 |
| スミマセン エクセルＶＢＡを利用してです。言葉が足りませんでした。 |
| TOSHIさん、こんにちは >スミマセン >エクセルＶＢＡを利用してです。言葉が足りませんでした。 パワーポイントのVBAは苦手ですが、試験用モジュール作ってみました。 こんな感じでいいでしょうか？ パワーポイントをオブジェクトとして開いてプレゼンテーションを実行します。 標準モジュールに貼り付けておためしください。 Sub test() Dim objPPT As Object Dim objPres As Object Dim objSlide As Object 'PowerPointを起動 Set objPPT = CreateObject("PowerPoint.Application") With objPPT .Activate Set objPres = .Presentations.Open(Filename:="C:\TESTPPT.ppt", WithWindow:=1) Set objSlide = objPres.Slides(2) objSlide.Select With .ActivePresentation.SlideShowSettings ' .ShowType = 1 'ppShowTypeSpeaker ' .LoopUntilStopped = msoFalse ' .ShowWithNarration = msoTrue ' .ShowWithAnimation = msoTrue .RangeType = 2 'ppShowSlideRange 'ここでは２枚目のスライドをプレゼンします '適宜変更してみてください .StartingSlide = 2 .EndingSlide = 2 ' .AdvanceMode = 2 'ppSlideShowUseSlideTimings ' .PointerColor.SchemeColor = 2 'ppForeground .Run End With End With ' objPPT.Quit ' Set objSlide = Nothing ' Set objPres = Nothing ' Set objPPT = Nothing End Sub なお、その他の操作は、パワーポイントの「マクロの記録」で確認してみてくださいね。 |
| ありがとうございました 早速試してみます。 |