无法使用vba宏在excel中创建悬停/静止图表

我试图创建一个excel图表，当我垂直滚动我拥有的长数据集时，它总是可见的。我希望工作簿中的所有工作表都出现这种情况。 在网上浏览了很多有用的链接之后，我尝试了下面的方法，但是没有成功

Private Sub CommandButton1_Click()
Dim i As Integer, k As Integer, l As Integer, x As Integer, y As Integer, j As Integer, a As Integer, b As Integer
Dim ws As Worksheet
For Each ws In Worksheets
    With ws

        '<much happens here>

        Set chartxval = .Range("A2:A" & (l - 1))
        Set chartval = .Range("E2:E" & (l - 1))
        With .Shapes.AddChart2.Chart
            .ChartType = xlXYScatterLines
            .ChartStyle = 240
            .Application.CutCopyMode = False
            .SeriesCollection.NewSeries
            .FullSeriesCollection(1).XValues = chartxval
            .FullSeriesCollection(1).Values = chartval
        End With
        ws.Activate
        With ActiveWindow.VisibleRange
            ActiveSheet.ChartObjects(1).Top = .Top + 5
            ActiveSheet.ChartObjects(1).Left = .Left + .Width - _
            ActiveSheet.ChartObjects(1).Width - 45
        End With
    End With
    Next ws
End Sub

Private子命令按钮1\u单击（）
尺寸i为整数，k为整数，l为整数，x为整数，y为整数，j为整数，a为整数，b为整数
将ws设置为工作表
对于工作表中的每个ws
与ws
'
设置chartxval=.Range（“A2:A”和（l-1））
设置chartval=.Range（“E2:E”和（l-1））
With.Shapes.AddChart2.Chart
.ChartType=xlxy散点线
.ChartStyle=240
.Application.CutCopyMode=False
.seriecollection.NewSeries
.FullSeriesCollection（1）.XValues=chartxval
.FullSeriesCollection（1）。值=chartval
以
ws.Activate
使用ActiveWindow.VisibleRange
ActiveSheet.ChartObjects（1）.Top=.Top+5
ActiveSheet.ChartObjects（1）.Left=.Left+.Width-_
ActiveSheet.ChartObjects（1）.宽度-45
以
以
下一个ws
端接头

这段代码只在不同的工作表中创建图表，但不能根据需要提供悬停或静止的图表。

---

需要任何人的帮助，他们可能知道如何实现期望的结果！提前谢谢

跳过第一行后面的一行：Dim i作为整数，k作为整数，l作为整数，x作为整数，y作为整数，j作为整数，a作为整数，b作为整数。你不是可以在工作表顶部构建图表并冻结窗格吗？该选项没有用，因为我碰巧有一个非常大的图表。