Excel VBAでExcelからPowerPointを開くマクロ

はじめに

ExcelからVBAマクロの機能で、PowerPointを開くマクロをテストで実装しました。

環境設定

①VBAのEditorのメニューから、「ツール」＞「環境設定」の順に選択します。
②以下の画像のように、「Microsoft PowerPoint 16.0 Object Library」にチェックを入れて「OK」ボタンを押してください。

実装したマクロ

実装したマクロは下記になります

'既存のpowerpointファイルを開く関数
Sub OpenPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim chart As ChartObject
    Dim slideIndex As Integer
    Dim filepath As String
    
    ' PowerPointを起動または既存のインスタンスを取得
    On Error Resume Next
    Set pptApp = GetObject(, "PowerPoint.Application")
    If pptApp Is Nothing Then
        Set pptApp = CreateObject("PowerPoint.Application")
    End If
    On Error GoTo 0
    
    
    
    '既存のPowerPointファイルパスを変数に代入する
    filepath = "C:\python_trg\月別腰痛回数.pptx"
    
    ' PowerPointファイルを開く
    Set pptPres = pptApp.Presentations.Open(filepath)
    
    ' PowerPointを表示
    pptApp.Visible = True
    
    
    ' クリーンアップ
    Set pptPres = Nothing
    Set pptApp = Nothing
    
    MsgBox "PowerPointファイルOpenマクロ実行完了"
    
End Sub

最後に

テストで作りました。