【PowerPoint VBA】ユーザーフォームでエクセルファイル選択ダイアログを開く方法

2024年5月24日2026年1月14日

経緯

PowerPointのVBAでツールを作っている中で、
**「ユーザーフォームを使って、Excelファイルを選択するダイアログを開きたい」**というニーズがありました。

たとえば、ユーザーにファイルパスを直接入力させるのではなく、ファイルダイアログで選択してもらう方が確実かつ便利です。
そこで今回は、ボタンを押すとExcelファイル選択用のダイアログが開き、選択結果がテキストボックスに表示される仕組みを実装してみました。

実現したい仕様

PowerPoint上のユーザーフォームを使用
CommandButton1 をクリックすると、ファイル選択ダイアログが表示される
Excelファイル（.xls / .xlsx / .xlsm）のみを選択可能
選択されたファイルパスが TextBox1 に自動入力される

ユーザーフォームの構成

CommandButton1：ファイル選択を実行するボタン
TextBox1：選択したファイルのフルパスを表示するテキストボックス

実装コード（PowerPoint VBA）

以下のコードを、ユーザーフォームのコード領域に記述してください。

' ボタンがクリックされたときにファイル選択処理を呼び出す
Private Sub CommandButton1_Click()
    Call SelectFile(Me.TextBox1)
End Sub

' ファイルダイアログを表示し、選択結果をTextBoxにセットする処理
Private Sub SelectFile(textbox As MSForms.TextBox)
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .Title = "Excelファイルを選択してください。"
        .Filters.Clear
        .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsm", 1
        If .Show = -1 Then
            textbox.Text = .SelectedItems(1)
        End If
    End With
End Sub

コードの補足

Application.FileDialog(msoFileDialogFilePicker) で、PowerPointからでもファイル選択ダイアログを使用可能です
.Filters.Add を使って、Excelファイルだけを表示するようにフィルター設定しています
.Show = -1 は「ユーザーが[開く]をクリックした」ことを意味します（キャンセル時は何もしません）

注意点

PowerPoint VBAでも Application.FileDialog は使用可能ですが、**実行にはユーザーフォームの参照設定（MSForms）**が必要です
ユーザーフォームのテキストボックスが ActiveXコントロール（MSForms.TextBox） であることを確認してください