各位大神，求助如何让100个折线图滚动出现

excelphw

各位大神：
       如附件所示，工作表中有100列数据，我要将这100列数据生成100个折线图，这部分代码已完成，现在想做一个控件，让这100个折线图按照输入的要求显示对应折线图，或者在点击上下按钮时交替出现。
       我在vba窗口增加了一个控件，总共三个内容，一个是文本框一个按钮一个上下按钮，设想就是：输入1-100数字，输入哪个数字，点击下面的按钮，哪个折线图就前置显示。另外就是点击上下按钮时，1-100个折线图会交替出现。
        100个折线图程序如下：



Sub 插入折线图()
For i = 1 To 100
    Sheets(1).Activate
    Sheets(1).Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets(1).Range(Sheets(1).Cells(37, i), Sheets(1).Cells(100, i))
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).ReversePlotOrder = True
Next i
    For i = 1 To 100
        ActiveSheet.Shapes(i).ScaleWidth 2, msoFalse, msoScaleFromTopLeft
        ActiveSheet.Shapes(i).ScaleHeight 2, msoFalse, msoScaleFromTopLeft
    Next i
End Sub

求教各位大神给个解题方法。

liulang0808

楼主换种思路，就是一个折线图，然后引用不同区域的数据是否可行

excelphw

liulang0808 发表于 2024-5-30 07:39
楼主换种思路，就是一个折线图，然后引用不同区域的数据是否可行

就是引用不同区域的数据，折线图已经可以出来了。但控件不是很明白要咋弄，还在学习中。

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1682274&page=1&mobile&_dsign=1c4cf1d9
echarts可以实现

liulang0808

楼主附件打开，折线图貌似挺多的，模拟了一个，供参考。。。。

micch

用滚动条，值绑定到数据，绑定方法有很多，如果用代码，可以写个函数，根据滚动条的值切换折线对应的数据范围，而不用做100个折线图

木槿花西月锦绣

就是动态图表吧，要是像自动播放，就弄个定时触发更新数据源

excelphw

zpy2 发表于 2024-5-30 08:24
https://club.excelhome.net/forum.php?mod=viewthread&tid=1682274&page=1&mobile&_dsign=1c4cf1d9
echar ...

我学习学习，谢谢！

excelphw

liulang0808 发表于 2024-5-30 08:29
楼主附件打开，折线图貌似挺多的，模拟了一个，供参考。。。。

是这个意思了，我再把滚动条那个优化一下。

excelphw

木槿花西月锦绣 发表于 2024-5-30 09:53
就是动态图表吧，要是像自动播放，就弄个定时触发更新数据源

也算是动态图表，只是不是定时触发，是点击时才触发。