Cut the Photo and paste it on Excel

I have used the following code to display a photo on Excel. However, the photo can't be displayed if the workbook is taken away from the office.

Is it possible to save the photo on the Excel, rather than displaying it through a photo path ?

Tks


For I = iStartRow To Range("A65536").End(xlUp).Row - 1
    P = Range(Cells(I + 1, sLink).Address(RowAbsolute:=False, columnAbsolute:=False))  
    Cells(I, 1).Select
    If I = Range("A65536").End(xlUp).Row Then
        Rows(I).RowHeight = iHeight
    Else
        Rows(I + 1).RowHeight = iHeight
    End If

    ActiveSheet.Range(Cells(I + 1, sPhoto), Cells(I + 1, sPhoto)).Select                  
   
    ActiveSheet.Pictures.Insert(P).Select                                                

Next