[Help] Mình làm tới đây rồi nhưng bí nhờ các đồng chí giúp đỡ!!!

[t3r44t]

Đoạn code bên dưới đây, function InPic() làm cách nào *Map ảnh theo Cell* và *Lock không cho di chuyển ảnh*, làm sao vậy các bác?
Cảm ơn các bác đã xem qua.
#Code:
Public Function InPic(i As LongLong, fil As String, mCells As Range)
Dim mPic As Picture
Set mPic = mCells.Parent.Pictures.Insert(fil)
With mCells.Offset(i - 2, 2)
.ColumnWidth = 50
.RowHeight = 50
mPic.Left = .Left
mPic.Top = .Top
mPic.Width = .Width
mPic.Height = .Height
End With
End Function