Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2536 / 76734

←次へ　｜　前へ→


	【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

3 hits

▼

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