ファイル名：Resize0.m

function resize0
% set(gca,'ButtonDownFcn','selectmoveresize')を使ってマウス操作でAxesのサイズ変更を可能にする。

fprintf('gcf内のAxes軸のサイズ変更をマウスで行う。右ボタンでコピーも可能。\n終わったらFigure上で''e''を入力する事。\n');
set(gcf,'Pointer','fullcrosshair');
h0 = findobj(gcf,'Type','axes');
for k = 1:size(h0,1)
    if strcmpi(get(h0(k,1),'Visible'),'off')
        set(h0(k,1),'Visible','on','UserData','VisibleOff');
    end
end
set(h0,'ButtonDownFcn','selectmoveresize');
KEYCOM = [  'KEY = get(gcf,''CurrentCharacter'');',...
            'if KEY==''e'' | KEY==''E'',',...
                'h1 = findobj(gcf,''Type'',''axes'');',...
                'set(h1,''ButtonDownFcn'','''',''Selected'',''off'');',...
                'set(gcf,''Pointer'',''arrow'',''KeyPressFcn'','''');',...
                'for k = 1:size(h1,1),',...
                    'if strcmpi(get(h1(k,1),''UserData''),''VisibleOff''),',...
                        'set(h1(k,1),''Visible'',''off'',''UserData'',[]);',...
                    'end,',...
                'end,',...
            'end'   ];
set(gcf,'KeyPressFcn',KEYCOM);