차트 설정 최대 값과 최소값

Question

2 개의 셀을 참조하는 vba를 사용하여 차트의 최대 값과 최소값을 설정하려고합니다. 이미 워크 북에있는이 차트를 참조하려고합니다. 다음 코드 : 나는 차트를 선택한 경우

Sub ScaleAxes() 

    Dim Sht1 As Worksheet 
    Dim Sht1Name As String 
    Set Sht1 = Worksheets("Lists") 

    With Application.ActiveChart.Axes(xlValue, xlPrimary) 
     .MinimumScale = Sht1.Range("L2").Value 
     .MaximumScale = Sht1.Range("L3").Value 
    End With 

End Sub 

코드는 작동하지만, 내가 차트를 클릭하고 있지 않다 경우가 작동하는 방법을 어떻게해야합니까? 사전에

감사합니다,

최대

Answer 1

은 (차트의 이름으로 "Chart1의를"수정) 이후, MyChtObj As ChartObject를 정의하는 코드를 사용 Sht1에서 차트의 이름으로 MyChtObj을 설정합니다.

Option Explicit 

Sub ScaleAxes() 

    Dim Sht1 As Worksheet 
    Dim Sht1Name As String 
    Set Sht1 = Worksheets("Lists") 

    Dim MyChtObj As ChartObject 
    Set MyChtObj = Sht1.ChartObjects("Chart 1") ' <-- modify "Chart 1" to your chart's name 

    With MyChtObj.Chart.Axes(xlValue, xlPrimary) 
     .MinimumScale = Sht1.Range("L2").Value 
     .MaximumScale = Sht1.Range("L3").Value 
    End With 

End Sub