Update_Single_Powerpoint_Figure.m

function Update_Single_Powerpoint_Figure(fig_number)

FigureNumber=fig_number;
%         resolution='300';
        mresolution='2';
            SizeFactor=2;
        
        Path = [pwd,'\'];
        
        handles=findall(0,'type','figure');
        ind = find([handles.Number] == FigureNumber);
        if(isempty(ind)); return ;end
        figure_handle = handles(ind);
        if(isfield(figure_handle.UserData,'Scale'))
            SizeFactor=figure_handle.UserData.Scale;
        end
        % figure_handle.Position
               [MatlabPPT] = RefreshPPT();
        Objs = Obj_From_Placeholder(['figure',num2str(FigureNumber)],MatlabPPT);
 
        if(isempty(Objs));return;end
        for i=1:numel(Objs)
            Obj=Objs{i};
        
        %Change only hight    
        
%         new_height = Obj.Height./Obj.Width * figure_handle.Position(3);
%         figure_handle.Position(2) = figure_handle.Position(2)  - (new_height - figure_handle.Position(4));
%         figure_handle.Position(4) = new_height;

        %change both hight and width
        new_height = Obj.Height*SizeFactor;
        new_width = Obj.Width*SizeFactor;
        figure_handle.Position(2) = figure_handle.Position(2)  - (new_height - figure_handle.Position(4));
        figure_handle.Position(1) = figure_handle.Position(1)  - (new_width - figure_handle.Position(3));
        figure_handle.Position(4) = new_height;
        figure_handle.Position(3) = new_width;
        drawnow;
        if(abs(figure_handle.Position(3)-new_width)>1e-3 || abs(figure_handle.Position(4)-new_height)>1e-3)
            warning('The figure scaled is too small\large. change scaling by: Fx=gcf;Fx.UserData.Scale=#');
        end
        Ax = figure_handle.CurrentAxes;
        Backup_color = get(Ax,'color');
        set(Ax,'color','none');
% export_fig(figure_handle,[Path,'temp.png'],'-dpng',['-r',resolution],'-transparent');
export_fig(figure_handle,[Path,'temp.png'],'-nocrop','-dpng',['-m',mresolution],'-transparent');
set(Ax,'color',Backup_color);
%         print(figure_handle,[Path,'temp.jpg'],'-dpng',['-r',resolution]);
        ReplaceImage(Obj,[Path,'temp.png']);
        end
end