Y ekseninin mak ve min değerleri hücreden okunsun

[hayri tekin]

Merhaba arkadaşlar,
Ekli dosyamda Y değer eksenindeki değerleri otomatik olarak değiştirmek istiyorum.Maksimum ve minimum değerleri tablomdaki H3 ve I3 hücrelerinden grafiğe yazdırmak istiyorum.Bununla ilgili her iki sayfada yazılı 2 örnek makro buldum ama maalesef çalıştıramadım.Bu konuda yardımlarınızı rica ediyorum.

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar,
Ekli dosyamda Y değer eksenindeki değerleri otomatik olarak değiştirmek istiyorum.Maksimum ve minimum değerleri tablomdaki H3 ve I3 hücrelerinden grafiğe yazdırmak istiyorum.Bununla ilgili her iki sayfada yazılı 2 örnek makro buldum ama maalesef çalıştıramadım.Bu konuda yardımlarınızı rica ediyorum.

.

Sub Eksendeg()

   Dim grf As ChartObject
   For Each grf In ActiveSheet.ChartObjects
      With grf.Chart
         
         With .Axes(xlValue)
            .MaximumScale = ActiveSheet.Range("MaxVal").Value
            .MinimumScale = ActiveSheet.Range("MinVal").Value
            
         End With
      End With
   Next grf
End Sub

Dosyanız ekte.

.

 

[hayri tekin]

Üstadım teşekkürlerimi sunuyorum.
Saygılar

 

[hayri tekin]

Üstadım,ihtiyaçlar doğrultusunda bir sorum daha olacak.Acaba bu makroya grafik adını vererek bu işlemi yapabilirmiyiz.

 

[Merhum İdris SERDAR]

Üstadım,ihtiyaçlar doğrultusunda bir sorum daha olacak.Acaba bu makroya grafik adını vererek bu işlemi yapabilirmiyiz.

.

Makronun adı mı grafik adı olacak? Yoksa, makro sadece belirtilen grafik için mi çalışacak?



.

 

[hayri tekin]

Sadece belirli bir grafik için çalışacak.
Ayrıca Run-time error 1004 hatası alıyorum.Burada akis sınıfının maksimumScala özelliği kurulamıyor diyor. Ama end'e basınca işlemi yine yapıyor.Sebebi ne olabilir acaba?

 

[Merhum İdris SERDAR]

Sadece belirli bir grafik için çalışacak.

.

Örnekteki grafik için:

Sub Eksendeg()
   
   ActiveSheet.ChartObjects("Chart 3").Activate
              
        ActiveChart.Axes(xlValue).Select
        ActiveChart.Axes(xlValue).MaximumScale = ActiveSheet.Range("MaxVal").Value
        ActiveChart.Axes(xlValue).MinimumScale = ActiveSheet.Range("MinVal").Value
         
End Sub

.

 

[hayri tekin]

Üstadım "ChartObjects özelliği alınamıyor" diye hata verdi

 

[Merhum İdris SERDAR]

Üstadım "ChartObjects özelliği alınamıyor" diye hata verdi

.

Dosyanız ekte.

İki makro da bu dosyada ve herhangi bir problem yok.

.

 

[hayri tekin]

Çok haklısınız.Sizin dosyanızda bir hata yok.Kendi dosyama uyarladığımda bu hatayı alıyorum.
Ayrıca örn.dosyamda 5 grafik var ve ben "grafik3" adlı grafiğimde bu makroyu çalıştıracağım.Makroda bununla ilgili birşey göremiyorum yada anlayamadım,açıklayabilirmisiniz lütfen ..

 

[Merhum İdris SERDAR]

Çok haklısınız.Sizin dosyanızda bir hata yok.Kendi dosyama uyarladığımda bu hatayı alıyorum.
Ayrıca örn.dosyamda 5 grafik var ve ben "grafik3" adlı grafiğimde bu makroyu çalıştıracağım.Makroda bununla ilgili birşey göremiyorum yada anlayamadım,açıklayabilirmisiniz lütfen ..

.

Var.

ActiveSheet.ChartObjects([COLOR="Red"]"Chart 3"[/COLOR]).Activate

.

 

[hayri tekin]

Sizin dosyanıza bir grafik daha kopyaladım.Hep ilk grafiği hesaplıyor diğerini yapmıyor.Anlamaya çaılıştığım makro bu grafiğe nasıl bağlandı.Bunu nalayamıyorum maalesef.

 

[hayri tekin]

.

Var.

ActiveSheet.ChartObjects([COLOR="Red"]"Chart 3"[/COLOR]).Activate

.

Peki bu grafiğin "chart 3" olduğunu nerden görüyoruz?

 

[Merhum İdris SERDAR]

Sizin dosyanıza bir grafik daha kopyaladım.Hep ilk grafiği hesaplıyor diğerini yapmıyor.Anlamaya çaılıştığım makro bu grafiğe nasıl bağlandı.Bunu nalayamıyorum maalesef.

.

Ben de ekledim. Bir problem görünmüyor.

.

 

[hayri tekin]

Üstadım ilginize çok teşekkür ediyorum.Şimdi anladım "chart 03" isminin nerden görüldüğünü.İlgilenen arkadaşlar için: grafiğin üzerindeyken sağ clik grafik grafik penceresinden en üstte görülebiliyormuş
Esen kalın

 

[Merhum İdris SERDAR]

Üstadım ilginize çok teşekkür ediyorum.Şimdi anladım "chart 03" isminin nerden görüldüğünü.İlgilenen arkadaşlar için: grafiğin üzerindeyken sağ clik grafik grafik penceresinden en üstte görülebiliyormuş
Esen kalın

.


k::

:bravo:

:mutlu:

 

[hayri tekin]

Sn.Yurttaş,

İhtiyaçlar bitmiyor maalesef..Bu yaptığımız çalışmayı sadece "Minimum değeri" çift eksenli grafiğe nasıl uyarlayabiliriz ?

 

[hayri tekin]

Sorum gözden kaçtı sanırım.
Bu konuda yardımcı olacak arkadaş var mı acaba ?