Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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:
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:
Kod:
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"
Kod:
Private Sub ListBox1_Change()
ActiveSheet.ChartObjects(1).Activate
ActiveSheet.ChartObjects(1).Select
With ActiveChart
.ChartType = ListBox1.Text
End With
End Sub