Excel VBA質問箱 IV

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

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


84 / 74282 ←次へ | 前へ→

【79841】Excel VBAによるpowerpointの操作について
質問  ぼう  - 18/4/28(土) 20:11 -

引用なし
パスワード
   次のように、Excel VBAでPowerPointを開き、スライド番号を取得し表示するためのコードを書いたのですが、10行目のset ppSldのところで必ず「問題が発生したため〜〜」というダイアログとともにエクセルを閉じられてしまいます。何が原因なのでしょうか。
ちなみに、その行を別のスライド番号を使う系の文(MsgBox ppPrs.Slides(1).SlideNumberなど)にしても同じことが起こるので、ppPrs.Slides()が何がいけないのかなという気はしています。

Sub aaa()

Dim ppApp As New PowerPoint.Application
ppApp.Visible = True

Dim ppPrs As PowerPoint.Presentation
Set ppPrs = ppApp.Presentations.Open(ThisWorkbook.Path & "/sample.pptx")

Dim ppSld As PowerPoint.Slide 'スライドオブジェクト
Set ppSld = ppPrs.Slides(1) '1ページ目のスライドをセット

MsgBox "スライド1のページ数:" & ppSld.SlideNumber 'スライド1のスライド番号

ppApp.Quit
Set ppApp = Nothing

End Sub

41 hits

【79841】Excel VBAによるpowerpointの操作について ぼう 18/4/28(土) 20:11 質問[未読]
【79842】Re:Excel VBAによるpowerpointの操作につい... 亀マスター 18/4/28(土) 22:06 発言[未読]
【79843】Re:Excel VBAによるpowerpointの操作につい... ぼう 18/4/28(土) 23:10 質問[未読]
【79844】Re:Excel VBAによるpowerpointの操作につい... 亀マスター 18/4/29(日) 1:25 発言[未読]
【79849】Re:Excel VBAによるpowerpointの操作につい... ぼう 18/4/29(日) 14:37 質問[未読]
【79850】Re:Excel VBAによるpowerpointの操作につい... マナ 18/4/29(日) 14:54 発言[未読]
【79858】Re:Excel VBAによるpowerpointの操作につい... ぼう 18/5/1(火) 8:43 質問[未読]
【79859】Re:Excel VBAによるpowerpointの操作につい... よろずや 18/5/1(火) 9:23 発言[未読]
【79860】Re:Excel VBAによるpowerpointの操作につい... ぼう 18/5/1(火) 13:37 質問[未読]
【79862】Re:Excel VBAによるpowerpointの操作につい... よろずや 18/5/1(火) 15:48 回答[未読]

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