VBA를 사용하여 X 축과 Y 축의 범위 값을 가져오기

VBA를 사용하여 X 축과 Y 축의 범위 값을 가져오기

 

 

ChatGPT의 답변은 다음과 같다.

 

Sub GetAxisRanges()
    Dim myChart As ChartObject
    Dim xAxis As Axis, yAxis As Axis
    Dim xAxisMin As Variant, xAxisMax As Variant
    Dim yAxisMin As Variant, yAxisMax As Variant
    
    ' 차트 개체 가져오기
    Set myChart = ActiveSheet.ChartObjects("Chart 1")
    
    ' X 축과 Y 축 가져오기
    Set xAxis = myChart.Chart.Axes(xlCategory)
    Set yAxis = myChart.Chart.Axes(xlValue)
    
    ' X 축 범위 가져오기
    xAxisMin = xAxis.MinimumScale
    xAxisMax = xAxis.MaximumScale
    
    ' Y 축 범위 가져오기
    yAxisMin = yAxis.MinimumScale
    yAxisMax = yAxis.MaximumScale
    
    ' 결과 출력
    MsgBox "X 축 범위: " & xAxisMin & " ~ " & xAxisMax & vbNewLine & _
           "Y 축 범위: " & yAxisMin & " ~ " & yAxisMax
End Sub