Indsættelse af billede i Excel - vba

Jeg har en udemærket kode, som henter rigtig mange billeder ind i Excel i forskellige sammenhænge. Her bliver billeder ikke gennemgået for skarphed mm - men mere brugt som en illustration/genkendelse af produkt mm

Men nu skal jeg gerne have hentet meget skarpe billeder ind. Dertil har jeg billeder i størrelserne 1-2 mb. Da det skal bruges til en præsentation - er det vigtig at står skarp.

Men uanset hvad jeg gør - så sørger Excel for at billederne bliver komprimeret voldsomt - også uanset filtypen (tif, jpg eller png)

Hvordan undgår jeg dette?????

Min kode ser således ud (udsnit):

        If flg = True Then
                Count = Count + 1
                Sheets(DelSheet).Activate
                myPictP = strPath & strFileName
                Set PicRange = Range(Cells(RowS, ColS), Cells(RowEnd, ColEnd))
                Set Shp = ActiveSheet.Shapes.AddPicture(myPictP, False, True, 0, 0, -1, -1)
                Shp.Placement = xlMoveAndSize
                Shp.ControlFormat.PrintObject = True
                Range("AA1") = Shp.Name
        Else
        End If

Hvis nogen kan hjælpe - vil jeg være meget taknemmelig.