请求大神帮忙：图表自动设定最大最小值的代码出错

mhx0322

需求：sheet1的所有图表里面横坐标值分别采用THDi（sheet2）的指定单元格的数值进行设定。
代码如下：
Sub SetChartAxisBasedOnRange()
    Dim ws As Worksheet
    Dim maxVal As Double
    Dim minVal As Double
    Dim cht As ChartObject

    ' 指定包含最大值和最小值的单元格区域地址
    Set ws = ThisWorkbook.Worksheets("THDi")

    ' 获取单元格区域的最大值和最小值
     maxVal = ws.Range("F145").Value ' 例如 "B1"
     minVal = ws.Range("F2").Value ' 例如 "B2"

    ' 遍历所有图表并设置横坐标轴
    For Each cht In ActiveSheet.ChartObjects
        With cht.Chart.Axes(xlCategory, xlPrimary)
            .MinimumScale = minVal
            .MaximumScale = maxVal
        End With
    Next cht
End Sub

边缘码农

错误提示可以截个图？不然不知道是什么错误。

边缘码农

盲猜一下：

With cht.Chart.Axes(xlCategory, xlPrimary)

xlCategory 是不是换成  xlValue  ?

mhx0322

边缘码农 发表于 2024-7-4 10:41
盲猜一下：

With cht.Chart.Axes(xlCategory, xlPrimary)

换成换成  xlValue 是调整的Y轴

mhx0322

  是 .MinimumScale = minVal  出错，显示不是Axis对象

lss001

mhx0322 发表于 2024-7-4 16:42
是 .MinimumScale = minVal  出错，显示不是Axis对象

Sub SetChartAxisBasedOnRange()
    Dim ws As Worksheet, i%, xmin#, xmax#
    Dim cht As ChartObject, arr
   
    ' 遍历所有图表并设置横坐标轴
    For Each cht In ActiveSheet.ChartObjects
        '获取x轴值*****************
        arr = cht.Chart.SeriesCollection(1).XValues
        xmin = Application.Min(arr)   'x坐标轴最小值
        xmax = Application.Max(arr) 'x坐标轴最大值
        
        With cht.Chart.Axes(xlCategory, xlPrimary)
            .MinimumScale = xmin '设置x坐标轴最小刻度
            .MaximumScale = xmax '设置x坐标轴最大刻度
        End With
    Next cht
   
End Sub