Excel VBA質問箱 IV

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

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


52608 / 76732 ←次へ | 前へ→

【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

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

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


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

End Sub

確認してみてください。


でれすけさん、/Sは、メモメモ・・です。
ありがとうございます。

1 hits

【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 質問

52608 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free