How to Capture objects in big image and divided them to small images?

This code works just for this image only

Irgb = imread('b653er.jpg');
Igray = rgb2gray(Irgb);
Ibw = im2bw(Igray,graythresh(Igray));
Ifill = imfill(Ibw,'holes');

%clear the lines
Ihor = imopen(Ifill,strel('line',5,0));
Iver = imopen(Ihor,strel('line',5,90));

Ilabel = bwlabel(Iver);
stat = regionprops(Ilabel,'BoundingBox');
for x = 1 : numel(stat)
    bb = stat(x).BoundingBox;
    Icrop{x} = imcrop(Irgb,bb);
    subplot(numel(stat),1,x); imshow(Icrop{x});
end