SetDirectory@"C:\\drorbn\\AcademicPensieve\\Talks\\TrendsInLDT-2005"

col=ImageCollage[
Scaled[1]-> ImagePad[#,8,White]& /@ ImageCrop /@ Import /@ FileNames["*.png", {"Clips"}],
"Fit", 400{8,10.5},
Method -> "ClosestPacking",Background -> White, Padding -> Red, ImagePadding -> 4
]

{Export["EGOU.png", col], Export["EGOU_800.png", col, ImageSize->800]}