Insert image size proportional

I use this: 
ExcelFile.AddImage(FileName,
                    TImageProperties_Create(
                      TClientAnchor.Create(TFlxAnchorType.DontMoveAndDontResize, NumLigne, 0, NumCol, 0, NumLigne+1, 0, NumCol+1, 0),
                        FileName));

This inserts the image into the cell by stretching the image.

I would like a solution that does not stretch the image.