ファイル名：CopyFigure0.m

function copyfigure0
% copyobj(gca,gcf)関数を使ってgcf全体を別のfigureにコピーする
% ----------------------------------------------------------------------------------------------
% ▼ [2001/05/18] Matlab6でもinput関数は日本語対応していない様だ。[貼]は[\]付きでないとダメ。
% ▼ [2001/05/18] input関数の文字に日本語を使うと赤く変色するが、先頭に[_]や英字を置くと治る。
% ----------------------------------------------------------------------------------------------

disp('現在選択されている figure 全体を別の figure にコピーします。');
PastedFig   = input('_貼\り付けられる figure 番号      => ');
CopiedAxes  = copyobj(get(gcf,'Children'),gcf);

figure(PastedFig);
set(CopiedAxes,'Parent',PastedFig);