Homec4science
Diffusion Instrument Control (Rohde_FSW) Browse

rINSTCONTROL/Utility functions/axesToClipboard.m
e5d84d8bcb1eRohde_FSW

Last Change
Raw File

axesToClipboard.m
View Options

function axesToClipboard(Axes)
pos = [0, 0, Axes.OuterPosition(3:4)];
%Creates a new invisible figure with new axes
NewFig = figure( ...
'Visible', 'off', ...
'Units', Axes.Units, ...
'Position', pos);
NewAxes = axes(NewFig, ...
'Units', Axes.Units, ...
'OuterPosition', pos);
if isa(Axes.XAxis, 'matlab.graphics.axis.decorator.DatetimeRuler')
% Convert the x axis to datetime format
L = plot(NaT,NaN);
delete(L);
end
% Properties, always set to default
NewAxes.Color = 'none';
NewAxes.XColor = [0, 0, 0];
NewAxes.YColor = [0, 0, 0];
% Properties, copied from the source plot
copy_prop_list = {'Box', 'BoxStyle', 'Clipping', 'ColorOrder', ...
'FontAngle', 'FontName', 'FontSize', 'FontSmoothing', ...
'FontUnits', 'FontWeight', 'GridAlpha', 'GridColor', ...
'GridLineStyle', 'LineStyleOrder', 'LineWidth', ...
'MinorGridAlpha', 'MinorGridColor', 'MinorGridLineStyle', ...
'TickDir', 'TickLabelInterpreter', 'TickLength', 'TickDir', ...
'XDir', 'XGrid', 'XLim', 'XMinorGrid', 'XMinorTick', ...
'XScale', 'XTick', ...
'YDir', 'YGrid', 'YLim', 'YMinorGrid', 'YMinorTick', ...
'YScale', 'YTick'};
for i = 1:length(copy_prop_list)
if isprop(Axes, copy_prop_list{i})
NewAxes.(copy_prop_list{i}) = Axes.(copy_prop_list{i});
end
end
% Handling font sizes is different in axes and uiaxes, so copy it
% specifically
NewAxes.XAxis.FontSize = Axes.XAxis.FontSize;
NewAxes.YAxis.FontSize = Axes.YAxis.FontSize;
% Copy axes labels and legend as these are handle objects
NewAxes.XLabel = copy(Axes.XLabel);
NewAxes.YLabel = copy(Axes.YLabel);
if ~isempty(Axes.Legend)
legend(NewAxes, ...
'String', Axes.Legend.String, ...
'Location', Axes.Legend.Location,...
'Orientation', Axes.Legend.Orientation, ...
'FontSize', Axes.Legend.FontSize)
end
try
% Loose inset is an undocumented feature so we do not complain if
% the code below does not work
NewAxes.LooseInset = [0, 0, 0, 0];
catch
end
% Copy the axes content
for i = 1:length(Axes.Children)
copyobj(Axes.Children(i), NewAxes);
end
%Prints the figure to the clipboard
print(NewFig, '-clipboard', '-dbitmap');
%Deletes the figure
delete(NewFig);
end
c4science · Help