fig2pp.m

基于Matlab的地震数据处理显示和测井数据显示于处理的小程序

function fig2pp(figure_handle,reverse)
% Export figure for use in PowerPoint
% Written by: E. R.: January 20, 2003
% Last updated: December 9, 2005: Use "advexpfig" to export the figure
%
%          fig2pp(figure_handle,reverse)
% INPUT
% figure_handle    figure number 
%          Default (if not given or empty): figure_handle=gcf
% reverse  Reverse the figure background and axis colors and adjust graphs
%          (see "whitebg")
%          Default: reverse=logical(1);
%          S4M.invert_hardcopy must be set to 'off' to have an effect
%          (See figure property 'InvertHardcopy')

global S4M
persistent figure_number

directory=S4M.pp_directory;

if nargin == 0
   figure_handle=gcf;
   reverse=logical(0);
elseif nargin == 1
   reverse=logical(0);
else
   if isempty(figure_handle)
      figure_handle=gcf;
   end
end

if isempty(figure_number)
   figure_number=1;
else
   figure_number=figure_number+1;
end

figure(figure_handle)	% Make figure the current figure
pos=get(figure_handle,'PaperOrientation');

if isempty(S4M.script)
   filename=['Figure_',num2str(figure_handle),'_x',num2str(figure_number),'.emf'];
else
   filename=[S4M.script,'_',num2str(figure_handle),'_x',num2str(figure_number),'.emf'];
end

	% Create file name for plot file
filepath=fullfile(directory,filename);

if reverse
   whitebg(figure_handle)         % Change background to complementary colors
end

set(figure_handle,'InvertHardcopy',S4M.invert_hardcopy);

try 
   if strcmp(pos,'portrait')
      width=12.7;
      height=16.12;
   else
      width=25.4;
      height=16.12;
   end
%   exportfig(figure_handle,filepath,'Format','meta','Width',width,'Color','rgb')
   advexpfig(figure_handle,filepath,'-dmeta','w',width,'h',height);

catch 
  [filepath,ierr]=get_filename4w('.emf');
   if ierr & reverse
      whitebg(figure_handle)         % Change background to complementary colors
      return
   end
   [directory,name,ext]=fileparts(filepath);
   filename=[name,ext];
%   exportfig(figure_handle,filepath,'Format','meta','Width',width,'Color','rgb')
   advexpfig(figure_handle,filepath,'-dmeta','w',25.4,'h',16.12)

end

if reverse
   whitebg(figure_handle)         % Change background to complementary colors
end

if S4M.interactive
   msgdlg(['Figure saved in file "',filename,'" in directory "',directory,'" as a Windows Enhanced Meta File.'])
end