How to keep the subplot sizes unchanged after putting a colorbar

Question

Let us say we have a 1-by-2 subplot and we plot some graphics inside as follows:

subplot(1,2,1)
surf(peaks(20))

subplot(1,2,2)
surf(peaks(20))

Answer 1

This is just what I was looking for. After implementing Vidar's automatic solution I came up with a simplification. Get the position of the far right axes BEFORE adding the colorbar, and then just reset the squeezed position to the original:

f1=figure(1);clf;
s1=subplot(1,2,1);
surf(peaks(20));

s2=subplot(1,2,2);
surf(peaks(20));
s2Pos = get(s2,'position');

hb = colorbar('location','eastoutside');
set(s2,'position',s2Pos);