Grafik Türünü Değiştirme

[Allback]

Arkadaşlar merhaba,

Excelde dilimleyiciden seçtiğim seçenekler ile grafikler oluşuyor. Fakat dilimleyicideki "HEDEF" seçeneğini seçtiğimde oluşan grafiğin türünün "line" çizgi grafik olması lazım. Bunu makroya atadığım bir buton ile nasıl yapabilirim.

 

[Allback]

Makro ile grafikteki bir verinin türünü değiştirmek mümkün değil mi?

Yani sütun grafik şeklinde olan veriyi, çizgi grafik yapmak istiyorum.

Lütfen yardımcı olun...

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/degisik-ve-secenekli-grafik/

 

[Allback]

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/degisik-ve-secenekli-grafik/

İdris Hocam,

Verdiğiniz örneği inceledim. Örnekte makro ile tüm grafiğin türü değişiyor. Ben grafikteki verilerden birinin çizgi grafik olmasını istiyorum. Bunu normalde şu şekilde yapıyorum. Önce grafikte olmasını istediğim verileri seçiyorum. Grafikte sütunlar oluştuktan sonra, çizgi grafik olmasını istediğim verinin herhangi bir sütununu seçip, grafik türünü değiştir diyorum ve çizgi grafik yapıyorum. Makro kaydetme ile yapmaya çalıştım ama olmadı.

Sizin örneğinizden söyleyecek olursam, açılan kutudan sütun grafiği seçtikten sonra bir butona basarak 2010 verilerinin çizgi grafik olmasını istiyorum.

 

[Merhum İdris SERDAR]

.

Aşağıdaki gibi bir kod kullanabilrsiniz.

Sub Macro1()

   ActiveSheet.ChartObjects("Chart 2").Select
    With ActiveChart
    .FullSeriesCollection(2).Select
    .ChartArea.Select
    .FullSeriesCollection(1).ChartType = xlLine
    
    End With
    
End Sub

.

 

[Allback]

Maalesef İdris Bey, yapamadım...

 

[Merhum İdris SERDAR]

.

Yükleme sitelerine bir örnek dosya ekleyin, bakalım.

.

 

[Allback]

.

Yükleme sitelerine bir örnek dosya ekleyin, bakalım.

.

http://s2.dosya.tc/server3/7xbat0/Ornek_Dosya.rar.html

İlginiz için teşekkürler İdris Bey,

 

[Allback]

.

Aşağıdaki gibi bir kod kullanabilrsiniz.

Sub Macro1()

   ActiveSheet.ChartObjects("Chart 2").Select
    With ActiveChart
    .FullSeriesCollection(2).Select
    .ChartArea.Select
    .FullSeriesCollection(1).ChartType = xlLine
    
    End With
    
End Sub

.

İdris Bey,

Kodu aşağıdaki gibi yazınca istediğim gibi oldu. Yardımlarınız için teşekkürler.

ActiveSheet.ChartObjects("Grafik 1").Activate
    ActiveChart.SeriesCollection("Hedef").Select
    ActiveChart.SeriesCollection("Hedef").ChartType = xlLine