Eksen seçeneklerinde üst sınır değerinin formülle belirlenmesi.

[dedenet]

Hazırladığım grafikte eksen seçeneklerinde üst sınır değerinin otomatik veya elle değil formülle belirlemek istiyorum.
Yani Üst sınır değerinin yanında 70,0 yazmayacak formül yazacak örneğin =A2 gibi.
Bunu nasıl yapabileceğimi bulamadım. Denedim ama olmadı bu konuda bilgisi olan varsa yardımcı olursa sevinirim

 

[İdris SERDAR]

.

Aşağıdaki kodu deneyin.

Sub eksenlimit()

With ActiveChart.Axes(xlCategory) 'x ekseni için
'With ActiveChart.Axes(xlValue) 'y ekseni için

    .MinimumScale = Range("A1")
    .MaximumScale = Range("A2")
End With

End Sub

.

 

[mesudiye_052]

Merhabalar

Sub grafik()
    Dim c As Chart
    Dim a As Axes
   
   
    Set c = Charts.Add
    c.SetSourceData Liste.Range("A1").CurrentRegion
   
    Set a = c.Axes
   
    a.Item(xlValue).MinimumScale = Liste.Range("H1")  ' Code name adı Liste olan çalışma sayfası 
    a.Item(xlValue).MaximumScale = Liste.Range("H2")

    Set c = Nothing
    Set a = Nothing

End Sub

 

[dedenet]

.

Aşağıdaki kodu deneyin.

Sub eksenlimit()

With ActiveChart.Axes(xlCategory) 'x ekseni için
'With ActiveChart.Axes(xlValue) 'y ekseni için

    .MinimumScale = Range("A1")
    .MaximumScale = Range("A2")
End With

End Sub

.

Teşekkürler

 

[dedenet]

Merhabalar

Sub grafik()
    Dim c As Chart
    Dim a As Axes
  
  
    Set c = Charts.Add
    c.SetSourceData Liste.Range("A1").CurrentRegion
  
    Set a = c.Axes
  
    a.Item(xlValue).MinimumScale = Liste.Range("H1")  ' Code name adı Liste olan çalışma sayfası
    a.Item(xlValue).MaximumScale = Liste.Range("H2")

    Set c = Nothing
    Set a = Nothing

End Sub

Teşekkürler