Excel圖表軸比例尺

Question

已使用此blog將圖表軸與單元格值關聯。

Sub ScaleAxes() 

    Dim wks As Worksheet 
    Set ws = Worksheets("AXIS") 
    Set cht = ActiveWorkbook.ChartObjects("ChartName1","ChartName2") 

    For Each cht In ActiveWorkbook.ChartObjects 
     cht.Activate 
     With ActiveChart.Axes(xlCategory, xlPrimary) 
      .MaximumScale = ws.Range("$B$12").Value 
      .MinimumScale = ws.Range("$B$11").Value 
      .MajorUnit = ws.Range("$B$13").Value 
     End With 
    Next cht 

End Sub 

我的目標是使用座標軸值的單個工作表來更新不同工作表上的多個圖表。大多數示例都使用同一工作表上的圖表。我目前得到錯誤438 - 有什麼想法？

Answer 1

嘗試下面的代碼，該代碼註釋中解釋：

Option Explicit 

Sub ScaleAxes() 

    Dim Sht As Worksheet 
    Dim ws As Worksheet 
    Dim chtObj As ChartObject 
    Dim ChtNames 

    Set ws = Worksheets("AXIS") 
    ' you need to get the names of the charts into an array, not ChartObjects array 
    ChtNames = Array("ChartName1", "ChartName2") 

    ' first loop through all worksheet 
    For Each Sht In ActiveWorkbook.Worksheets 
     ' loop through all ChartObjects in each worksheet 
     For Each chtObj In Sht.ChartObjects 
      With chtObj 

       '=== use the Match function to check if current chart's name is found within the ChtNames array === 
       If Not IsError(Application.Match(.Name, ChtNames, 0)) Then 
        With .Chart.Axes(xlCategory, xlPrimary) 
         .MaximumScale = ws.Range("B12").Value 
         .MinimumScale = ws.Range("B11").Value 
         .MajorUnit = ws.Range("B13").Value 
        End With 
       End If 
      End With 
     Next chtObj 
    Next Sht 

End Sub