Formda grafik

[mutlu erdal erdem]

Sub FormdaGrafik()
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("Sayfa1").Range("l7:l56"), _
PlotBy:=xlRows
cht.Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Makro ile grafik konusunda hiç bilgim yok.Ancak yukarıdaki makro hata veriyor
nedeni ne olabilir?

 

[Mahmut Kök]

Oluşturduğunuz grafiği userformda görmek istiyorsanız önce excel çalışmanızda bir tane grafik oluşturunuz (Sayfa şeklinde olursa daha iyi olur.), userformda o grafiği gösterelim..


Grfik oluşturmuşsanız oluştuduğunuz sayfayı belirtir misiniz?

 

[mutlu erdal erdem]

sayfa1

sayfa1 de çalışıyorum.

 

[Mahmut Kök]

userform üzerine resim (image) alanı ekleyin. Adı image1 olsun. Sayfadaki grafik userform üzerindeki resim alanında resim olarak gözükecektir.




Private Sub userform_activate()
Sheets("sayfa1").Activate
Activesheet.chartobjects(1).select
Activechart.export ("C:\grfk.jpg")
Image1.Picturesizemode = fmPictureSizeModeStretch
Image1.Picture = Loadpicture("C:\grfk.jpg")
kill ("C:\grfk.jpg")
End Sub

 

[mutlu erdal erdem]

Tşk ediyorum

Kolay gelsin

 

[chopper07]

bunun bir örneği var mı acaba?

 

[musculus]

Cevap eski ama çözüm çok rahat ve mükemmel olmuş teşekkürler

 

[primadonna]

Merhaba arkadaşlar, ben de yukarıdaki kodu yazarak grafik oluşturdum fakat bunu usb'ye aktarıp başka bir bilgisayarda çalıştırmak istediğimde C:'ye yazılı olduğu için hata veriyor bunu nasıl otomatikleştirebilirim?