Userform - dinamic chart oluşturma

[hsimsir]

Arkadaslar merhaba,

Forumda daha önce acılan konuları inceledim ama bu konu ile ilgili acılan konuların hepsi cevapsız kalmış. O nedenle konuyu tekrar acıyorum Lütfen yanlış anlaşılmasın !! Konu ile ilgili bilgisi olanlar yardım ederse cok sevinirim.

Excel de bir sheet de bir chart oluşturdum. Oluşturulan bu chartı userforma aktarmak istiyorum. Bunun gif seklinde static olarak aktarma yontemleri mevcut. Ama dynamic sekilde aktarabilmek için ne yapmam gerekiyor. ChartSpace objesini kullanarak bir köprü oluşturabilirmiyim.

Sonuc olarak bir sheet te var olan chartın dinamik olarak userformda görülmesi amacım.

Lütfen bilen varsa yardım etsin

 

[hamitcan]

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.ChartWizard Source:=.Range("a3:B" & [a65536].End(3).Row), _
            gallery:=xlLine, Title:="New Chart"
        .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]

Hamitcan bey teşekkürler.
Birde çizgi grafik değilde çubuk grafik yapsaydık nasıl galeri tanımlayacaktık?

 

[Barons]

image değilde chartspace nasıl olurdu...bende merak ettim..image olayında görüntü kötü oluyor