excel - ActiveChart.Axes(xlValue).MaximumScale 导致错误 13

Question

我正在尝试自动化我的数据透视图的最大轴边界。它适用于我的 PC 和笔记本电脑，但它在我朋友的代码上显示错误 13。

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Application.ScreenUpdating = False

'On Error Resume Next

    Sheets("Dashboard").Select

    Sheets("Dashboard").ChartObjects("Chart 1").Activate

    ActiveChart.Axes(xlValue).MinimumScale = Sheets("Validation").Range("Z1").Value
    
    Sheets("Dashboard").Select
    
    Sheets("Dashboard").ChartObjects("Chart 1").Activate
    
    ActiveChart.Axes(xlValue).MaximumScale = Sheets("Validation").Range("Z2").Value

Application.ScreenUpdating = True

Sheets("Dashboard").Range("A1").Select

End Sub

标签： excelvba