Xin hướng dẫn tuỳ chỉnh trục Y trong X-Y Chart=VBA (2 người xem)

[tazzz]

Mình đang sử dụng VBA để vẽ biểu đồ tỷ giá cho các ngoại tệ. Khi vẽ cho 1 đồng EUR (~ 26000) thì trục Y kéo từ 24000->30000 nên rất dễ nhìn biến động, nhưng khi vẽ cho 2 đồng EUR và USD (~19500) thì trục Y tự động kéo từ 0 -> 30,000 nên rất khó nhìn ra biến động 2 đồng này. Bây giờ có cách nào để tuỳ biến khoảng giá trị cho trục Y (vd: từ 15000-> 30000 thôi) để có thể nhìn các biến động rõ ràng hơn??

 

[ptm0412]

Bạn xem file đính kèm. Code chỉ cần record macro thôi.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$3" Then
ActiveSheet.ChartObjects("Chart 1").Activate
Select Case [e3]
Case "EUR"
    ActiveChart.SetSourceData Source:=Range("A1:b9")
    ActiveChart.Axes(xlValue).MinimumScale = [b13]
    ActiveChart.Axes(xlValue).MaximumScale = [b14]
Case "USD"
    ActiveChart.SetSourceData Source:=Range("A1:A9", "C1:C9")
    ActiveChart.Axes(xlValue).MinimumScale = [c13]
    ActiveChart.Axes(xlValue).MaximumScale = [c14]
Case Else
    ActiveChart.SetSourceData Source:=Range("A1:C9")
    ActiveChart.Axes(xlValue).MinimumScale = 18000
    ActiveChart.Axes(xlValue).MaximumScale = 28000

End Select
End If
End Sub