用于将 x 轴设置为绘图范围内的最小值和最大值的 Excel VBA 代码

Question

我有一个 VBA 代码(如下)，它将最小和最大 x 轴值设置为指定的单元格(B4 和 B15)。但是，我的工作簿中有很多图，并且都需要不同的最小和最大 x 轴范围。我想要一个进入绘制的 x 轴范围的 VBA 代码，然后找到该范围内的最小值和最大值并将轴设置为这些值。我怎样才能改变下面的代码来做到这一点？

Sub Resize_Fonts()
Dim Sht As Worksheet
Dim Cht As ChartObject

For Each Sht In ActiveWorkbook.Sheets
    For Each Cht In Sht.ChartObjects
        Cht.Chart.ChartArea.Font.Size = 9
        Cht.Chart.ChartArea.Font.Name = "Cambria"
        Cht.Chart.ChartArea.Border.LineStyle = xlNone
        Cht.Chart.Axes(xlValue).MinimumScale = 0
        Cht.Chart.Axes(xlCategory).MinimumScale = Range("B4").Value
        Cht.Chart.Axes(xlCategory).MaximumScale = Range("B15").Value


    Next Cht
Next Sht

End Sub

Answer 1

如果最小值和最大值始终在 Sht 上的 B14:B15 范围内，您可以使用:

Cht.Chart.Axes(xlCategory).MinimumScale = worksheetfunction.Min(Sht.Range("B4:B15"))
Cht.Chart.Axes(xlCategory).MaximumScale = worksheetfunction.Max(Sht.Range("B4:B15"))