clear;
h=surf(peaks(20));  %繪制曲面圖形并產(chǎn)生圖柄h
z=get(h,'zdata');    %得到曲面的Z坐標(biāo)數(shù)據(jù)
chann=ddeinit('excel','Sheet3');  %為兩者的DDE對(duì)話(huà)建立通道chann
range2='r1c1:r20c20';    %為空白表格指定區(qū)域，起名為range2
rc=ddepoke(chann,range2,z); 
%借助通道chann，將數(shù)據(jù)z送到指定位置range2。操作成功，rc為1
%...借助通道chann，在MATLAB與指定區(qū)域range2之間建立熱連接…
rc=ddeadv(chann,range2,'set(h,’’zdata’’,z);','z');
%Excel表格Sheet3的range區(qū)域中任何數(shù)據(jù)的改動(dòng)，引發(fā)如下操作：
%立即引起其后指令的執(zhí)行；MATLAB空間中的z變量被實(shí)時(shí)更新。
%...切斷MATLAB與range2的熱連接…
hc=uimenu(gcf,'Label','關(guān)閉');
hc1=uimenu(hc,'Label','關(guān)熱連接','Callback','ddeunadv(chann,range2);');
hc2=uimenu(hc,'Label','關(guān)閉對(duì)話(huà)','Callback','ddeterm(chann);');
hc3=uimenu(hc,'Label','關(guān)圖形窗','Callback','close;');