'ListViewを利用して、フォルダーからドラッグ＆ドロップする
'   ListViewのプロパティ設定
'     OLEDragMode = 1
'     OLEDropMode = 1
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim myImage As Variant
    Dim aWidth, aHeight, i As Integer
  'セル指定していない場合はメッセージ表示後終了
    If not(TypeName(Selection) = "Range") Then
      MsgBox ("写真を入れるセルを選択して下さい")
      Exit Sub
    End If
    aWidth = Selection.Columns.Width  'セル範囲の幅を取得
    aHeight = Selection.Rows.Height   'セル範囲の高さを取得
  'ピクチャー表示
    On Error Resume Next
      If Data.Files.Count > 0 Then
          myImage = Data.Files(1)
          ActiveSheet.Pictures.Insert(myImage).Select
          If Err = 0 Then
            Selection.Top = ActiveCell.Top + 1
            Selection.Left = ActiveCell.Left +1
              'セル幅に合わせる
              Selection.Width = aWidth
              'セル幅に合わせたとき高さオーバーするならセル高さに収める
              If Selection.Height > aHeight Then Selection.Height = aHeight
            ActiveCell.Value = myImage  '元写真のフルパスをセルに記入
            ActiveCell.Offset(1).Activate
          End If
      End If
    On Error GoTo 0
End Sub
		

※補足情報※「無効なオブジェクトライブラリ...」の対処方法

上記のエラーが出てくる場合は、MSCOMCTL.OCXの接続情報が壊れているようですので、
「スタート」メニューから「すべてのプログラム」→「アクセサリ」と進んで 「コマンドプロンプト」の所で『右クリック』メニューで、「管理者として実行..」を選んでください。
コマンドプロンプトの窓が開いて C:\Windows\system32> と表示されますので、続けて
REGSVR32 /u MSCOMCTL.OCX　と打ち込んで(小文字でもOK) エンターキーを押すと 「mscomctl.ocxのDllUnregisterServerは成功しました」と表示されたら[ok]ボタン。
今度は、/uをのぞいて、 REGSVR32 MSCOMCTL.OCX　と打ち込んでエンターキーを押すと 「mscomctl.ocxのDllregisterServerは成功しました」と表示されたら[ok]ボタン。
コマンドプロンプトの窓を閉じたら完了です。