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

function Multi_Subplot_Scroll(row, column)
% row: 子图的行数
% column: 子图的列数
%%
clc
close all

fMain  = figure('NumberTitle', 'off', ...
    'Menubar', 'none', ...
    'Units', 'pixels', ...
    'Position', [500, 100, 1000, 500], ...
    'Resize', 'off');

%%
% 创建一个水平布局
HBox = uiextras.HBox('Parent', fMain);

% 创建一个Panel用于放 子坐标 的Panel
Panel = uipanel('Parent', HBox);

% 创建一个slider用于滚动subplot
Slider = uicontrol('Style', 'slider', ...
    'Parent', HBox, ...
    'callback', {@callback_Slider, fMain});

% Slider宽20pix，剩下的宽度都给Panel
HBox.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的最小值为0
Slider.Min = 0;
% 设置Slider的当前值为Slider的最大值（把slider拿到上方去）
Slider.Value = Slider.Max;
% 初始化 上一次点击slider时slider的值 Slider_PreviousValue 为slider的最大值
setappdata(fMain, 'Slider_PreviousValue', Slider.Max)

% 创建 子Panel
Panel_Sub = uipanel('Parent', Panel, ...
    'Units', 'pixels', ...
    'Position', [0, -diff_Height, Panel.Position(3), Panel_Sub_Height], ...
    'BackgroundColor', 'k');
% 保存 子Panel
setappdata(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);

end


function 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应该向上动

% 获取放坐标系的Panel
Panel_Sub = getappdata(fMain, 'Panel_Sub');
% 计算要移动的高度

% 重置Panel_Sub的Position
Panel_Sub.Position(2) = Panel_Sub.Position(2) - diff_SliderValue;

% 保存当前Slider的Value
setappdata(fMain, 'Slider_PreviousValue', current_SliderValue)
end