エクセルでボタンを押すとセル名のパワーポイントファイルが開くマクロを作る方法

エクセル

2023.08.082024.03.20

あなたはエクセルからパワーポイントのファイルを開けたら便利なのに、と思ったことはありませんか？

プレゼン資料の元の資料をエクセルで作成していて、プレゼン資料を直接開けたら便利ですよね。

エクセルのマクロを使えば、パワポのファイルも一発で開けます。

今回は「エクセルでボタンを押すとセル名のパワーポイントファイルが開くマクロを作る方法」を紹介します。

エクセルでボタンを押すとセル名のパワーポイントファイルが開くマクロを作る方法
実際の使用例
まとめ

エクセルでボタンを押すとセル名のパワーポイントファイルが開くマクロを作る方法

エクセルでボタンを押すとパワーポイントファイルが開くマクロを作る方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

下の画像のように、「A2セルに入れたファイル名」のファイルを開く方法を例に紹介します。

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．新規作成をクリック

３．コードを入れる画面が出る

コードを入れる画面が出ます。

４．コードを入力

ここでは下記のように入力しています。

デスクトップの、仕事Aフォルダの、A2セルの名前のパワーポイントファイルを開く、という意味です。

Sub ボタン4_Click()

End Sub

赤枠部のコードです。

    Dim desktopPath As String
    Dim folderName As String
    Dim filePath As String
    Dim fileName As String
    
    ' デスクトップのパスを取得
    desktopPath = Environ("USERPROFILE") & "\Desktop\"
    
    ' 開くファイルのフォルダ名を設定
    folderName = "仕事A"
    
    ' 開くファイルの名前をA2セルから取得
    fileName = ThisWorkbook.Sheets("Sheet44").Range("A2").Value
    
    ' ファイルのパスを生成
    filePath = desktopPath & folderName & "\" & fileName & ".pptx"
    
    ' PowerPointアプリケーションを起動してファイルを開く
    Dim pptApp As Object
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    pptApp.Presentations.Open filePath

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた