forked from rozenasf/Matlab2Powerpoint
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathvector_example.txt
More file actions
47 lines (41 loc) · 1.31 KB
/
vector_example.txt
File metadata and controls
47 lines (41 loc) · 1.31 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
%%
% Update_All_Powerpoint_Figure();
Options = struct(...
'Line',struct('Color',[0,0,0],'Weight',1) ...
,'Box',struct('Color',[0,0,0],'Weight',2) ...
,'Text',struct('Color',[0,0,0],'FontSize',12,'FontName','Times New Roman') ...
,'Ticks',struct('Color',[0,0,0],'Weight',1.5,'Length',6) ...
,'Grid',struct('Color',[0.5,0.5,0.5],'Weight',0.5)...;
);
fig_obj=gcf;
Ax=gca;
Ax.XTick=Ax.XTick(((Ax.XTick>=min(xlim())) .* (Ax.XTick<=max(xlim())))==1);
Ax.YTick=Ax.YTick(((Ax.YTick>=min(ylim())) .* (Ax.YTick<=max(ylim())))==1);
Fig = Powerpoint_Tunnel(fig_obj.Children(end),Options);
Fig.Resize;
Backup_List.Ax = {'color','Position','YGrid','XGrid'};
Backup_List.Fx = {};
Fig.BackupFigure({'color','Position'},{},1);
Fig.BackupFigure({'YGrid','XGrid'},{},2);
% try Fig.DrawLabes;end
% try Fig.DrawTitle;end
Fig.DrawBox;
Fig.DrawTickValues;
Fig.DrawAllCurves;
Fig.DrawBoundingLines;
Fig.RestoreFigure(1);
Fig.GeneratePNG;
Fig.RestoreFigure(2);
Fig.UnHide;
% Fig.InjectPNG;
% end
Fig.GroupAll(['@',Fig.name]);
%% regroup
Fig.GroupAll(['@',Fig.name]);
%% Load A figure. dont use figure 1
figureNumber=13;
Fx=openfig(['Q:\ilani group\Documents\Our Papers\MA graphene\figures\Fig_Files\fig',num2str(figureNumber),'.fig']);
get(0,'Children');
figure(figureNumber)
copyobj(allchild(1),figureNumber);
delete( Fx)