xls := TXlsFile.Create;
  objlist := TExcelObjectList.Create;
  range := TXlsCellRange.Create(4,1,4,1);
  stream := TMemoryStream.Create;
  try
    xls.open('h:\doc\invoice 4.xlsx');

    xls.GetObjectsInRange(range,objlist);
    Memo1.Lines.Clear;
    for i:=0 to objlist.Count-1 do
    begin
      Memo1.Lines.Add(xls.GetObjectName(objlist[i]));
      ii := xls.ObjectIndexToImageIndex(objlist[i]);
      xls.GetImage(ii,'', imgType, Stream,false);
      if imgType = TXlsImgType.Jpeg then
        stream.SaveToFile('D:\test.jpg')
      else if imgType = TXlsImgType.Png then
        stream.SaveToFile('D:\test.png')
      else if imgType = TXlsImgType.Bmp then
        stream.SaveToFile('D:\test.bmp')
      else
        Memo1.Lines.Add('Error!');
    end;
  finally
    objlist.Free;
    xls.Free();
    stream.Free;
  end;