grafik i image nesnesine atama

[Kemal Demir]

Arkadaslar Günaydın,

Kucuk bir calisma var ek'te.Userform içerisinde ilgili veriler seçildikten sonra rapor sayfasına veriler getirilerek bir grafik olusturulmaktadır.olusan grafıği de image nesnesine aktarmam gerekmekte.Referanslardan eksik olan hangisi.bu konuda yardımcı olabilirmisiniz.

Teşekkur Ederim.

 

[Kemal Demir]

Goz atan oldumu arkadaslar.

 

[Zeki Gürsoy]

Daha önce bu konu işlenmişti. "Export" olarak arama yaparsanız bulabilirsiniz.

 

[hamitcan]

Sayın Rakkas, ben notlarım arasında bir örnek buldum. İşinize yarar zannedersem. Kendinize uyarlamaya çalışın.

Private Sub UserForm_Initialize()
    Set ThisChart = ActiveSheet.ChartObjects(1).Chart

'   Save Chart as GIF.
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    ThisChart.Export Filename:=Fname, FilterName:="GIF"
'    Sheets("SAYFA1").ChartObjects(1).Delete
    
'   Show the Chart.
    Image1.Picture = LoadPicture(Fname)
    Application.ScreenUpdating = True
    Kill ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
End Sub

 

[Kemal Demir]

Teşekkurler, ben biraz daha deneyeyim tekrar teşekkurler.