Grafik Türlerini Değişkene Atama

[Kemal Demir]

Arkadaslar Merhaba,

Aşagıdaki kod'da Listbox'a aktarmıs oldugum grafik türlerini
ListBox1_Change ile değiştirmek istiyorum.
Ama herhangibir değişiklik yok.
Bu konuda nasıl ilerlemem lazım.

Teşekkurler.

örnek:

ListBox1.AddItem "xl3DArea"
ListBox1.AddItem "xl3DAreaStacked"
ListBox1.AddItem "xl3DAreaStacked100"
ListBox1.AddItem "xl3DBarClustered"
ListBox1.AddItem "xl3DBarStacked"
ListBox1.AddItem "xl3DBarStacked100"
ListBox1.AddItem "xl3DColumn"
ListBox1.AddItem "xl3DColumnClustered"
ListBox1.AddItem "xl3DColumnStacked"
ListBox1.AddItem "xl3DColumnStacked100"
ListBox1.AddItem "xl3DLine"
ListBox1.AddItem "xl3DPie"
ListBox1.AddItem "xl3DPieExploded"
ListBox1.AddItem "xlArea"

Private Sub ListBox1_Change()
ActiveSheet.ChartObjects(1).Activate
ActiveSheet.ChartObjects(1).Select
With ActiveChart
        .ChartType = ListBox1.Text
End With
End Sub

 

[Kemal Demir]

Merhaba,

Sorunu çözdüm textlere gelen Id'leri buldum.Listbox2'ye ıd leri yazarak indexlerinden yola cıktım.
İlgilinen herkese teşekkurler.

Dim veri, ifade As String
veri = ListBox1.ListIndex + 1
ifade = ListBox2.List(veri)
ActiveSheet.ChartObjects(1).Activate
Set a1 = ActiveSheet.ChartObjects(1)
With ActiveChart
        .ChartType = ifade
    End With