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