ＶＢＡで写真を複数挿入する際にファイルリンクではなく写真を直接貼るやり方

前提・実現したいこと
ＶＢＡで特定のセルをクリックすると複数写真が挿入されるコードなのですが
今組んでいるコードが写真をファイルリンクで挿入するコードになっております。
そこで、直接エクセルに写真を貼りつけるコードにしたいのですが
中々うまくいきません。
色々調べてShapes.AddPicture メソッドを使用することは分かったのですがこのコード
にどのように組み込むのかどなたか、ご教授お願い致します。

エラーメッセージ
該当のソースコード
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Dim fName As Variant
Dim i As Long
Dim Pict As Picture

If Target.Columns.Count = 6 And Target.Rows.Count = 11 Then

fName = Application.GetOpenFilename("JPGファイル, *.jpg", MultiSelect:=True)
If IsArray(fName) Then
Application.ScreenUpdating = False
'配列に格納されたファイル名をソート
BubbleSort fName, True
For i = 1 To UBound(fName)
Set Pict = ActiveSheet.Pictures.Insert(fName(i))
With Pict
.TopLeftCell = ActiveCell
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Selection.Height 'セルの高さリサイズ
.ShapeRange.Width = Selection.Width 'セルの幅にリサイズ
End With
ActiveCell.Offset(5, 0).Activate
Application.StatusBar = "処理中：" & i & "/" & UBound(fName) & "枚目"
Next i
End If
With Application
.StatusBar = False
.ScreenUpdating = True
End With
Set Pict = Nothing

End If
End Sub

'値の入替え
Public Sub Swap(ByRef Dat1 As Variant, ByRef Dat2 As Variant)

Dim varBuf As Variant
varBuf = Dat1
Dat1 = Dat2
Dat2 = varBuf

End Sub

'配列のバブルソート
Public Sub BubbleSort(ByRef aryDat As Variant, _
Optional ByVal SortAsc As Boolean = True)

Dim i As Long
Dim j As Long
For i = LBound(aryDat) To UBound(aryDat) - 1
For j = LBound(aryDat) To LBound(aryDat) + UBound(aryDat) - i - 1
If aryDat(IIf(SortAsc, j, j + 1)) > aryDat(IIf(SortAsc, j + 1, j)) Then
Call Swap(aryDat(j), aryDat(j + 1))
End If
Next j
Next i

End Sub

試したこと
Set Pict = ActiveSheet.Pictures.Insert(fName(i))
ここをShapes.AddPicture メソッドを使用しようとしたのですが
エラーが起きてしまいました。