matlab中如何保持每个子图的大小并加滚动条来上下滚动查看各个子图

function Multi_Subplot_Scroll(row, column)% row: 子图的行数% column: 子图的列数%%clcclose allfMain  = figure('NumberTitle', 'off', ...    'Menubar', 'none', ...    'Units', 'pixels', ...    'Position', [500, 100, 1000, 500], ...    'Resize', 'off');%%% 创建一个水平布局HBox = uiextras.HBox('Parent', fMain);% 创建一个Panel用于放 子坐标 的PanelPanel = uipanel('Parent', HBox);% 创建一个slider用于滚动subplotSlider = uicontrol('Style', 'slider', ...    'Parent', HBox, ...    'callback', {@callback_Slider, fMain});% Slider宽20pix，剩下的宽度都给PanelHBox.Widths = [-1, 20];% 计算一下子坐标的宽度，实际上不用算（因为放到布局里面了），% 这里算是为了大概算一下 子Panel的高度，width_axes = fix( Panel.Position(3) / column ); % hight_axes = width_axes;% 计算 子Panel的高度Panel_Sub_Height = width_axes * row;%% 这里不考虑行数很少，以至于一个窗口就能放下的情况(也就是只考虑放坐标的子Panel比其父Panel高)% 计算高度差diff_Height = Panel_Sub_Height - Panel.Position(4);% 设置Slider的最大值为高度差Slider.Max = diff_Height;% 设置Slider的最小值为0Slider.Min = 0;% 设置Slider的当前值为Slider的最大值（把slider拿到上方去）Slider.Value = Slider.Max;% 初始化 上一次点击slider时slider的值 Slider_PreviousValue 为slider的最大值setappdata(fMain, 'Slider_PreviousValue', Slider.Max)% 创建 子PanelPanel_Sub = uipanel('Parent', Panel, ...    'Units', 'pixels', ...    'Position', [0, -diff_Height, Panel.Position(3), Panel_Sub_Height], ...    'BackgroundColor', 'k');% 保存 子Panelsetappdata(fMain, 'Panel_Sub', Panel_Sub)% 创建网格布局Grid_axes = uiextras.Grid('Parent', Panel_Sub);% 画各个子图for i = 1 : row * column    ax = axes('Parent', Grid_axes);    fplot(@sin)end% 设置网格布局的参数Grid_axes.Heights = -ones(1, row);Grid_axes.Widths = -ones(1, column);endfunction callback_Slider(self, ~, fMain)% 获取Slider的上一次值Slider_PreviousValue = getappdata(fMain, 'Slider_PreviousValue');% 获取当前Slider的值current_SliderValue = self.Value;% 计算两者差值diff_SliderValue = current_SliderValue - Slider_PreviousValue;% 如果为负说明Slider向下滑，Panel_Sub应该向上动% 获取放坐标系的PanelPanel_Sub = getappdata(fMain, 'Panel_Sub');% 计算要移动的高度% 重置Panel_Sub的PositionPanel_Sub.Position(2) = Panel_Sub.Position(2) - diff_SliderValue;% 保存当前Slider的Valuesetappdata(fMain, 'Slider_PreviousValue', current_SliderValue)end