VBAでEXCELのセル内に画像データのフルパスを入力したい

Question

EXCELにボタンを設置し、クリックする事で
ダイアログ表示→データを選択→指定したセルに画像データのフルパスを入力
ということができる様にしたいと考えております。
また、セルに入力するフルパスは複数あります。

VBA初心者なのですが、アドバイスいただけないでしょうか。

Comments

[vann_2921]

「vba ファイルを開く」をgoogleで検索してそれでも分からなければ質問を編集して分からないことを書いてください。よろしくお願いします。

Answer 1

あくまでもサンプルです

Sub ダイアログBox開く()
      Range("A3").Value = "フルパス名"
      With Application.FileDialog(msoFileDialogFolderPicker)
          If .Show = True Then
               FolderPath = .SelectedItems(1)
              End If
         End With
    'ファイルアクセスの準備
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set FileObj = FileSys.GetFolder(FolderPath).Files
    n = 4  'フルパス4行目から
    For Each PdfObj In FileObj
        With PdfObj
            'セルに表示
            Cells(n, 1).Value = PdfObj
            n = n + 1
        End With
    Next
End Sub