vba 坐标轴最大值

在VBA（Visual Basic for Applications）中，如果你想要获取Excel工作表上坐标轴的最大值，可以使用`Worksheet.ChartObjects`、`Chart.SeriesCollection`以及`.MaxValue`属性。首先，你需要定位到特定的图表，然后获取系列数据中的最大值。以下是一个简单的示例：

Sub GetAxisMax()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 指定你要操作的工作表
    
    Dim ch As ChartObject
    For Each ch In ws.ChartObjects ' 遍历工作表的所有图表
        Dim cht As Chart
        Set cht = ch.Chart
        
        ' 获取X轴最大值
        Dim xAxisMax As Double
        xAxisMax = cht.SeriesCollection(1).XValues.Max ' 假设第一个系列对应X轴，可能需要调整索引

        ' 或者获取Y轴最大值
        Dim yAxisMax As Double
        yAxisMax = cht.SeriesCollection(1).DataPoints.Max.Y ' 同样，假设第一个系列对应Y轴

        Debug.Print "X轴最大值: " & xAxisMax
        Debug.Print "Y轴最大值: " & yAxisMax
    Next ch
End Sub