Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9160 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【28860】パワーポイントの起動 pio 05/9/16(金) 16:05 質問[未読]
【28869】Re:パワーポイントの起動 ichinose 05/9/16(金) 18:53 発言[未読]
【28952】Re:パワーポイントの起動 pio 05/9/19(月) 15:35 お礼[未読]
【28959】Re:パワーポイントの起動 ichinose 05/9/19(月) 17:56 発言[未読]
【29017】Re:パワーポイントの起動 pio 05/9/21(水) 15:35 お礼[未読]
【28872】Re:パワーポイントの起動 でれすけ 05/9/16(金) 21:51 回答[未読]
【28956】Re:パワーポイントの起動 pio 05/9/19(月) 16:17 質問[未読]
【28860】パワーポイントの起動
質問  pio  - 05/9/16(金) 16:05 -
引用なし
パスワード
   現在、エクセルシート上にあるコマンドボタンを押下することで、パワーポイントを起動させようとしています。
実際、パワーポイントの起動はできたのですが、起動と同時に「スライドショー」状態で表示させたいのですが、良い方法はありますでしょうか？？
どなかた知っておられましたらよろしくお願いします。

現状のソース
shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE " &
　　　 起動パワーポイントパス, vbMaximamzedFocus)
　　　　　 ↑
　　　変数で定義しています
【28869】Re:パワーポイントの起動
発言  ichinose  - 05/9/16(金) 18:53 -
引用なし
パスワード
   ▼pio さん：

こんばんは。

>現在、エクセルシート上にあるコマンドボタンを押下することで、パワーポイントを起動させようとしています。
>実際、パワーポイントの起動はできたのですが、起動と同時に「スライドショー」状態で表示させたいのですが、良い方法はありますでしょうか？？
>どなかた知っておられましたらよろしくお願いします。
パワーポイントを操作するなら、インスタンスを作成した方が簡単ですよ！！
私は、パワーポイントの事は、全く知りませんが、
標準モジュールに

'===========================================================
Sub test()
　　With CreateObject("powerpoint.application")
　　　 .Visible = True
　　　 With .Presentations.Open(Filename:=起動パワーポイントパス).SlideShowSettings
'この「起動パワーポイントパス」はプレゼンのパスことですよね？　　　　　
　　　　　 .ShowType = 1
　　　　　 .LoopUntilStopped = 0
　　　　　 .ShowWithNarration = 1
　　　　　 .ShowWithAnimation = 1
　　　　　 .RangeType = 1
　　　　　 .AdvanceMode = 2
　　　　　 .PointerColor.SchemeColor = 2
　　　　　
　　　　　 .Run
　　　　　 End With
　　　 End With
End Sub

で出来そうです。
（パワーポイントのマクロの記録を使用しました）


参照設定してパワーポイントのイベントも使えば、もっと凝った事も
出来ると思いますよ！！
【28872】Re:パワーポイントの起動
回答  でれすけ  - 05/9/16(金) 21:51 -
引用なし
パスワード
   こんばんは

>shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE /s " &
>　　　 起動パワーポイントパス, vbMaximamzedFocus)

と、起動時オプションで　/s を指定してやると
スライドショーが始まります。
スライドショーが終わるとパワーポイントも終了してしまうみたいですが．．．
【28952】Re:パワーポイントの起動
お礼  pio  - 05/9/19(月) 15:35 -
引用なし
パスワード
   ichinoseさん こんにちは

回答ありがとうございました。

ishinoseさんの記述されたソースを標準モジュールに記述し
実行してみたところ、スライドショーで表示されました
ありがとうございます。

ちなみに、パワーポイントを閉じる際
「保存しますか？」の確認メッセージが表示されるのですが
それを回避するためには、
パワーポイント側で制御する形になるのですよね？
【28956】Re:パワーポイントの起動
質問  pio  - 05/9/19(月) 16:17 -
引用なし
パスワード
   でれすけさん　こんにちは

>>shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE /s " &
>>　　　 起動パワーポイントパス, vbMaximamzedFocus)
>と、起動時オプションで　/s を指定してやると
>スライドショーが始まります。
>スライドショーが終わるとパワーポイントも終了してしまうみたいですが．．．

回答ありがとうございます。
実際に’/s’を追加して実行してみました。
しかしスライドショーは表示されず
パワーポイントの新規作成画面が表示され、指定したパワーポイントは
表示されませんでした。
指定の仕方がおかしかったのでしょうか？？

shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE /s " &
　　　 起動パワーポイントパス, vbMaximamzedFocus)
　　　　　　↑↑↑↑
　　　 "C:\TEST\TEST_A\TEST.ppt /s"
と指定しました。

お手数ですが、ご教示願います。
【28959】Re:パワーポイントの起動
発言  ichinose  - 05/9/19(月) 17:56 -
引用なし
パスワード
   pio さん
でれすけさん

こんにちは。

'=================================================================
Sub test()
　　With CreateObject("powerpoint.application")
　　　 .Visible = True
　　　 With .Presentations.Open(Filename:=起動パワーポイントパス)
　　　　　With .SlideShowSettings
　　　　　
　　　　　 .ShowType = 1
　　　　　 .LoopUntilStopped = 0
　　　　　 .ShowWithNarration = 1
　　　　　 .ShowWithAnimation = 1
　　　　　 .RangeType = 1
　　　　　 .AdvanceMode = 2
　　　　　 .PointerColor.SchemeColor = 2
　　　　　
　　　　　 .Run
　　　　　
　　　　　 End With
　　　　 .Saved = True
　　　　 End With
　　　 End With
End Sub

これで試してみてください。

それから、
でれすけさんの方法もＯＫでしたよ！！
起動パワーポイントパスの変数の中身に問題がありそうです！！
（フォルダ名に空白を含んでいるとか）


Sub test3()
　　起動パワーポイントパス = "D:\My Documents\test.ppt"
　　ans = Shell("C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE /s " & _
　　　　　　　　"""" & 起動パワーポイントパス & """", vbMaximamzedFocus)

End Sub

確認してみてください。


でれすけさん、/Sは、メモメモ・・です。
ありがとうございます。
【29017】Re:パワーポイントの起動
お礼  pio  - 05/9/21(水) 15:35 -
引用なし
パスワード
   ichinoseさん　こんにちは

>'=================================================================
>Sub test()
>これで試してみてください。

実際にやってみました。
保存しますか？メッセージは表示されなくなりました。
ありがとうございます。

>それから、
>でれすけさんの方法もＯＫでしたよ！！
>起動パワーポイントパスの変数の中身に問題がありそうです！！
>（フォルダ名に空白を含んでいるとか）

パスの最後に付ける「 /s 」の後ろスペースが抜けてました。。

スペースを追加すると、スライドショーが表示されました。

このソースを参考に開発を進めていきたいと思います。

ichinoseさん、でれすけさん、本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9160 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free