VBA를 사용하여 한 번에 여러 그래프에서 XY 축과 형식의 동일한 제목을 변경하는 방법은 무엇입니까?

VBA를 사용하여 한 번에 여러 그래프에서 XY 축의 동일한 제목과 형식을 변경하고 싶습니다.

나는 아래와 같은 코드를 만들었다.

3 개의 그래프가있는 경우 XY 축 제목과 형식이 동일한 두 번째 그래프를 변경하려면이 코드를 복사하여 붙여넣고 ChartObjects (1)에서 ChartObjects (2)로 변경하고 세 번째 그래프도 변경하려면 복사 및 이 코드를 다시 붙여넣고 ChartObjects (3)로 변경합니다.

하지만 그래프가 100 개라면 같은 코드를 100 번 복사해서 붙여넣고 각 ChartObject를 변경하는 것은 불가능 해 보입니다.

많은 그래프에서 XY 축 제목을 더 쉽게 변경할 수있는 방법이 있습니까?

감사합니다.

Sub axis() 
 Dim xytitle As chart 
 Set xytitle = Worksheets("graph").ChartObjects(1).chart 
 With xytitle.axes(xlCategory)
    .HasTitle = True 
    .AxisTitle.Text = "Treatment" 
    .AxisTitle.Font.Size = 11 
  .AxisTitle.Font.Bold = False
 End With 
  With xytitle.axes(xlValue) 
    .HasTitle = True 
    .AxisTitle.Text = "Grain weight" 
    .MaximumScale = 60 
    .MajorUnit = 10 
    .AxisTitle.Font.Size = 11 
    .AxisTitle.Font.Bold = False
 End With 

 End Sub