Dinamik Grafik

[hamitcan]

Test................................

 

[Orion1]

Teşekkürler.
ch.Chart.ChartType = xlColumnClustered
Bu kod işi bitirmiş
Evet Hamitcan bey süper olmuş
Yalnız altta sıra numarası giden yere
numara değilde
hangi şehir ise onu yazabilirmiyiz

 

[hamitcan]

Bendeki ekran görüntüsü bu siz de farklı mı çıkıyor.

 

[Orion1]

Bendeki görüntü bu.

 

[hamitcan]

Evren bey aşağıdaki şekilde dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ch As ChartObject
If Target.Column > 2 Then Exit Sub
    With Worksheets("DENEME")
        Set ch = .ChartObjects.Add(100, 30, 400, 250)
    ch.Chart.SetSourceData Source:=Sheets("DENEME").Range("A3:B32"), PlotBy _
        :=xlColumns
            ch.Chart.ChartType = xlColumnClustered
        .ChartObjects(1).Activate
            ActiveChart.Export ("C:\MyChart.jpg")
            UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
            UserForm1.Image1.Picture = LoadPicture("C:\MyChart.jpg")
            Kill ("C:\MyChart.jpg")
            UserForm1.Show 0
        .ChartObjects.Delete
    End With
End Sub

 

[Orion1]

Evet tamamdır.
Teşekkür ederim.Hamit bey.

 

[Orion1]

Hamitcan bey şimdi şunu farkettim.
Sütundaki illeri 1 atlayarak yazıyor grafiğe.Sizin verdiğiniz resimdede ,bendede o şekilde gözüküyor.Bütün şehirlerin hepsini gösterebilirmiyiz.Belki şehir isimlerini fontunu küçültürsek olur.
Bilginize.

 

[hamitcan]

Evren bey, genişlik ve yüksekliği ayarlamanız yeterli.

 Set ch = .ChartObjects.Add(100, 30, 500, 250)

Kullanım şekli:= .ChartObjects.Add(Left, Top, Width, Height)

 

[Orion1]

Evren bey, genişlik ve yüksekliği ayarlamanız yeterli.

 Set ch = .ChartObjects.Add(100, 30, 500, 250)

Kullanım şekli:= .ChartObjects.Add(Left, Top, Width, Height)

Evet şimdi oldu.Genişiliği 700 yapınca gösterdi.
Teşekkür ederim.