動作検証バージョン：Windows 11 Home + 64bit Access & PowerPoint バージョン 2405（ビルド17602.20000クイック実行）ベータチャネル
「access vba ppt スライドショー 起動」
「access vba powerpoint スライドショー」
といった検索キーワードで時折アクセスがあります。
Access VBAから、PowerPointのスライドショーを開始するには、どのようなコードを書けばいいのかを調べていらした方による検索です。
［スポンサードリンク］
PowerPointのプレゼンテーションを開始するサンプルプロシージャ
PowerPointファイルが1つ開かれている状態で、以下のSubプロシージャを実行すると、スライドショーが開始されます。
Sub PowerPointのスライドショーを開始する()
On Error GoTo ErrHandl
With GetObject(Class:="PowerPoint.Application")
.ActivePresentation.SlideShowSettings.Run
End With
Exit Sub
ErrHandl:
Select Case Err.Number
Case 429
MsgBox "PowerPointが起動していないようです。"
Case -2147188160
MsgBox "プレゼンテーションファイルが開かれていないようです。"
Case Else
MsgBox Err.Description & vbCrLf & Err.Number
End Select
Err.Clear
End Sub
On Error GoTo ErrHandl
With GetObject(Class:="PowerPoint.Application")
.ActivePresentation.SlideShowSettings.Run
End With
Exit Sub
ErrHandl:
Select Case Err.Number
Case 429
MsgBox "PowerPointが起動していないようです。"
Case -2147188160
MsgBox "プレゼンテーションファイルが開かれていないようです。"
Case Else
MsgBox Err.Description & vbCrLf & Err.Number
End Select
Err.Clear
End Sub
サンプルプロシージャで行っている処理
まず、VBAのGetObject関数の引数Classに文字列「PowerPoint.Application」を指定して、起動しているPowerPoint.Applicationへの参照を取得します。
With GetObject(Class:="PowerPoint.Application")
この後の処理は、実質的にPowerPoint VBAです。
PowerPointのApplication.ActivePresentationプロパティで、
アクティブなプレゼンテーションを表すPresentationオブジェクトを取得し、
.ActivePresentation.SlideShowSettings.Run
Presentation.SlideShowSettingsプロパティで、
SlideShowSettingsオブジェクトを取得して、
.ActivePresentation.SlideShowSettings.Run
SlideShowSettings.Runメソッドで
スライドショーを開始しています。
.ActivePresentation.SlideShowSettings.Run
最終更新日時：2024-04-24 17:58
［スポンサードリンク］
Home » Access VBA » Access VBAでパワポのスライドショーを開始する
