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

Katılım
21 Eylül 2011
Mesajlar
115
Excel Vers. ve Dili
Office 365 - İngilizce
Altın Üyelik Bitiş Tarihi
6.6.2022
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.
 
Katılım
21 Eylül 2011
Mesajlar
115
Excel Vers. ve Dili
Office 365 - İngilizce
Altın Üyelik Bitiş Tarihi
6.6.2022
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...
 
Katılım
21 Eylül 2011
Mesajlar
115
Excel Vers. ve Dili
Office 365 - İngilizce
Altın Üyelik Bitiş Tarihi
6.6.2022
İ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

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,094
Excel Vers. ve Dili
Excel, 365 - İngilizce
.

Aşağıdaki gibi bir kod kullanabilrsiniz.

Kod:
Sub Macro1()

   ActiveSheet.ChartObjects("Chart 2").Select
    With ActiveChart
    .FullSeriesCollection(2).Select
    .ChartArea.Select
    .FullSeriesCollection(1).ChartType = xlLine
    
    End With
    
End Sub
.
 
Katılım
21 Eylül 2011
Mesajlar
115
Excel Vers. ve Dili
Office 365 - İngilizce
Altın Üyelik Bitiş Tarihi
6.6.2022
Maalesef İdris Bey, yapamadım...
 
Katılım
21 Eylül 2011
Mesajlar
115
Excel Vers. ve Dili
Office 365 - İngilizce
Altın Üyelik Bitiş Tarihi
6.6.2022
.

Aşağıdaki gibi bir kod kullanabilrsiniz.

Kod:
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.

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