vba - 循环上的对象需要错误以设置图表比例最小值

Question

我正在尝试编写一个宏，它将活动图表的最小比例设置为数据范围内的最小值。这是我写的代码：

Sub LineGraphTemplate()

ActiveChart.HasTitle = True
ActiveChart.Axes(xlValue, xlPrimary).HasMajorGridlines = False
Dim i As Long
Dim j As Long
Set j = 100
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
    If ActiveChart.SeriesCollection(1).Value(i) < j Then
    Set j = ActiveChart.SeriesCollection(1).Value(i)


       Next i
        
    ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = j

End Sub

当我尝试运行它时出现“需要对象”错误，它似乎来自我创建的变量“j”。

任何见解和解释将不胜感激。

最好的

塞巴斯蒂安

标签： vba