보조 수평 X 축 VBA의 최대 배율

Question

다음 코드 기준 최대. 및 민. vba의 차트의 기본 가로 X 축의 배율이 설정됩니다.

Sub chart_set() 
    Dim objCht As ChartObject 
    With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue) 
    .MinimumScale = 0 
    .MaximumScale = my_max_var 
    End With 
End Sub 

보조 입력을 설정할 수있는 방법은 무엇입니까? 보조 축이 적용되면 그것을 추가 할 것입니다하지 않을 경우 아래

Answer 1

첫째, 코드 ActiveSheet의 ChartObject에 의지 Set objCht,

아래 코드는 확인합니다 (방법 ActiveSheetHow to avoid using Select in Excel VBA macros을 멀리하는 여기 추천 참조) 차트에. 그 다음에 MinimumScale과 MaximumScale을 20과 50 (내가 선택한 임의의 숫자)으로 수정합니다.

코드

Option Explicit 

Sub chart_set() 

Dim objCht As ChartObject 
Dim my_max_var As Long 

' just for my tests 
my_max_var = 1000 

' set chart object 
Set objCht = ActiveSheet.ChartObjects(1) 

With objCht 
    With .Chart.Axes(xlValue, xlPrimary) 
     .MinimumScale = 0 
     .MaximumScale = my_max_var 
    End With 

    ' check if Secondary Axis is applied 
    If .Chart.HasAxis(xlValue, xlSecondary) = False Then 
     .Chart.HasAxis(xlValue, xlSecondary) = True 
    End If 

    ' modify minimum and maximum values of seconday axis 
    With .Chart.Axes(xlValue, xlSecondary) 
     .MinimumScale = 20 
     .CrossesAt = 20 
     .MaximumScale = 50 
    End With 

End With 

End Sub