Vba 更改y最小最大值

嘿，伙计们，我正在尝试更改图表上的y-min和y-max值，并确保强制显示所有刻度标签。有没有关于如何使用此代码的建议

这是用户表单的一部分

Sub MakeFinanceChart()

Dim rX1 As Range rY1 As Range, rX2 As Range, rY2 As Range, rX3 As Range, rY3 As Range, rX4 As Range, rY4 As Range, rX5 As Range, rY5 As Range, rX6 As Range, rY6 As Range
Dim rChartPos As Range
Dim chtO As ChartObject

Set rX1 = Worksheets("Finance").Range("C5:C80"): Set rY1 = Worksheets("Finance").Range("F5:F80")
Set rX2 = Worksheets("Finance").Range("C5:C80"): Set rY2 = Worksheets("Finance").Range("J5:J80")
Set rX3 = Worksheets("Finance").Range("C5:C80"): Set rY3 = Worksheets("Finance").Range("L5:L80")
Set rX4 = Worksheets("Finance").Range("C5:C80"): Set rY4 = Worksheets("Finance").Range("P5:P80")
Set rX5 = Worksheets("Finance").Range("C5:C80"): Set rY5 = Worksheets("Finance").Range("T5:T80")
Set rX6 = Worksheets("Finance").Range("C5:C80"): Set rY6 = Worksheets("Finance").Range("X5:X80")

Set rChartPos = Worksheets("PLOTS").Range("O2:X28") ' location and dimensions of the chart
With rChartPos
Set chtO = .Parent.ChartObjects.Add(.Left, .Top, .Width, .Height)
chtO.Name = "Finance Plots"
End With

'Plot the Whole Finance CHART

With chtO.Chart

    .ChartType = xlXYScatterLines

    ' First series
    With .SeriesCollection.NewSeries
        .XValues = rX1
        .Values = rY1
        .Name = "A"
    End With

    ' Second series
    With .SeriesCollection.NewSeries
        .XValues = rX2
        .Values = rY2
         .Name = "B"
   End With

    ' Third series
    With .SeriesCollection.NewSeries
        .XValues = rX3
        .Values = rY3
         .Name = "C"
   End With

   ' Fourth series
    With .SeriesCollection.NewSeries
        .XValues = rX4
        .Values = rY4
        .Name = "D"
    End With

    ' Fifth series
    With .SeriesCollection.NewSeries
        .XValues = rX5
        .Values = rY5
         .Name = "E"
   End With

    ' Sixth Series
    With .SeriesCollection.NewSeries
        .XValues = rX6
        .Values = rY6
         .Name = "F"
   End With


    .SetElement (msoElementChartTitleAboveChart)
    .ChartTitle.Text = "Finance Plot"

End With

End Sub

---

在代码底部附近，即分配图表标题的下方，添加以下代码：

    With .Axes(xlValue)
        .MinimumScale = 0
        .MaximumScale = 100
        .MajorTickMark = xlOutside
        .MinorTickMark = xlOutside
    End With

---

您可以提供自己的最小和最大轴比例值。如果您不想看到细小的滴答声，只需删除MinorTickMarck线。

我的解决方案对您有效吗？我可以进一步帮助您吗？太完美了！你可以再帮我一点。我在我的账户页面上还有一个相关问题。你能看看你是否也能帮上忙吗？