エクセルVBA パワーポイント操作

Question

エクセルVBAは少々理解はしておりますが、エクセルVBAよりパワーポイントを操作できる事を知りました。
しかしながら、小生の知識では初めてのことなので全然わかりません。
「エクセルにて答えが出た数値（文字）によってパワーポイントのファイルを指定して開き、指定したスライドからスライドショーを始める（目的別スライドショーがベター）」といった作業をしたいのですがご教授下さい。

「富山の真さん」より

Answer 1

「エクセルにて答えが出た数値（文字）によってパワーポイントのファイルを指定して開き、指定したスライドからスライドショーを始める（目的別スライドショーがベター）」といった作業をしたいのですがご教授下さい

質問者様のご希望通り 「VBA で・・」を前提にすると、技術的な難易度が高くなってしまい、実現が困難になることが大いに予想されます。

ただ、こういった、「パソコンの自動操作」のような目的でしたら VBA ではなく、自動化ツール（RPA
) を利用するほうが、現実的で、確実性も高く、低コストです。

ご希望の　「VBA」ではないのですが、下記のようなツールを利用されてみてはいかがでしょうか？

PC Watch　タダで使えるWindows用業務自動化ツールを活用! Microsoft「Power Automate Desktop」の使い方

Microsoft 製品だけあって、 エクセルやパワーポイントなど操作は、比較的簡単になっています。

ここから追記部分

「Power Automate Desktop」を初めて利用されるなら、、マイクロソフトの学習用サイト Microsoft Lean で教材が載っています

学習向けドキュメントだけあって、詳しく解説されていますので、ご参考にしてみてはいかがでしょうか？

教材を見ながら触ると、Excel ファイルから値を読みだすということは、すぐに実現できると思います。

Power Automate Desktop での Excel オートメーション

Power Automate Desktop での Excel オートメーション

1. 概要
2. Excel ファイルを開く、保存する、閉じる
3. Excel ドキュメントからの読み取り
4. Excel ワークシートへの書き込み
5. その他のアクションおよび機能
6. ワークシートの管理
7. 演習 - スプレッドシートのデータを整理する
8. 知識を確認する
9. 概要

Comments

[toyamanosinsan]

ありがとうございます。やってみて検討してみます。

Answer 2

とりあえずこんな感じ。

Sub PowerPointSlideShowStartWith(filePath, startSlide)
    With CreateObject("PowerPoint.Application").Presentations.Open(filePath).SlideShowSettings
        .RangeType = ppShowSlideRange
        .StartingSlide = startSlide
        .Run
    End With
End Sub

Sub test()
    PowerPointSlideShowStartWith "C:\test\sample.pptx", 2
End Sub

＜追記＞
目的別スライドショーはこんな感じ？（試してはいない）

Sub PowerPointNamedSlideShowStart(filePath, ssName)
    With CreateObject("PowerPoint.Application").Presentations.Open(filePath).SlideShowSettings
        .RangeType = ppShowNamedSlideShow
        .SlideShowName = ssName
        .Run
    End With
End Sub

Comments

[toyamanosinsan]

jinojiさん、ありがとうございます。エクセルVBAで試してみましたが、ppShowNamedSlideShowでエラーがでます。ちなみにパワーポイントVBAではOKです。

[jinoji]

PowerPointを参照設定するか、定数を数字に変更してみてください。
ppShowSlideRange → 2
ppShowNamedSlideShow → 3

[toyamanosinsan]

OKとなりました。これでやりたい事に大きく前進いたしました。どうもありがとうございました。

[toyamanosinsan]

Jinojiさん
パワーポイントスライドが終了したら、パワーポイントを閉じて再びエクセルVBAに戻りたいのですが、なかなかうまくいきません。ご教授をお願いします