grafigi userform a aktarma

[qwertylion]

arkadaşlar ekteki dosyada verilerden oluşturulan grafigi userform a nasıl aktarabilirim?

yardımlarınız için teşekkürler

 

[hamitcan]

Forumda daha çok örnek bulabilirsiniz.
http://www.excel.web.tr/showthread.php?t=19427&highlight=userform+grafik

 

[qwertylion]

sn hamitcan teşekkür ederim, forumuda arattım ama tam istediğim gibi bir örnek bulamadım. aslında bu örnekte ilk başta mantığını anlamaktı. daha sonra örneği dahada geliştirmekti.

 

[hamitcan]

Private Sub UserForm_Initialize()
Sheets("DENEME").ChartObjects(1).Activate
ActiveChart.Export ("C:\MyChart.jpg")
Image1.PictureSizeMode = fmPicturedrdığıSizeModeStretch
Image1.Picture = LoadPicture("C:\MyChart.jpg")
Kill ("C:\MyChart.jpg")
End Sub

Aşamaları sırayla takip edin.
1-Bir Userform oluşturun.
2-Forma bir Image nesnesi ekleyin.
3-Kodu forma ekle.
Formu çağırdığınızda grafiği yüklenmiş göreceksiniz.
Kodun mantığı, grafiği bir imaj nesnesi olarak kaydedip forma çağırmaktır.

 

[qwertylion]

teşekkür ederim

 

[qwertylion]

düşeyarayı 3 günde ancak öğrenebilmiş birisi olarak 34 yaşından sonra makroyla uğraşmak ne kadar doğru açıkçası bilmiyorum

arkadaşlar ekteki dosyadan anlaşılacağı üzere miktar tuşuna basınca miktara ilişkin grafik userform1 ile gelmekte ancak sayı tuşuna basınca yine miktara ilişkin grafik gelmekte. acaba nereyi değiştirmem gerekiyor? (amacım kendi dosyamda veri doğrulamadan il seçtiğimde verilerime ilişkin tuşa basınca grafigin gelmesi)
yardımlarınız için teşekkürler.

 

[hamitcan]

Userform2 deki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
[color=red]Sheets("DENEME").ChartObjects(2).Activate[/color]
ActiveChart.Export ("C:\MyChart.jpg")
Image1.PictureSizeMode = fmPicturedrdığıSizeModeStretch
Image1.Picture = LoadPicture("C:\MyChart.jpg")
Kill ("C:\MyChart.jpg")

End Sub

 

[qwertylion]

teşekkürler hocam