Grafik Kodlamada Hata Alıyorum

Grafik Kodlamada Hata Alıyorum - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Grafik Kodlamada Hata Alıyorum (/konu-grafik-kodlamada-hata-aliyorum.html)

Sayfalar: 1 2 3 4

RE: Grafik Kodlamada Hata Alıyorum - berduş - 27/08/2020

Ben program içerisindeyken denemiştim çalışmıştı.

RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 27/08/2020

(27/08/2020, 09:44)berduş yazdı: Ben program içerisindeyken denemiştim çalışmıştı.

Tablo kısımlarında gezdikten sonra grafiğe girdiğinizde hata veriyor .

RE: Grafik Kodlamada Hata Alıyorum - berduş - 27/08/2020

(27/08/2020, 09:56)merttr07 yazdı: Tablo kısımlarında gezdikten sonra grafiğe girdiğinizde hata veriyor .

kast ettiğiniz şeyi anlamadım ama tablolar formunu hatta açılanbilen tüm formları açtım sorun çıkmadı
hangi adımları izlediniz ve ne hatası verdi.

RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 27/08/2020

Programa girer girme ilk grafiği denedim sorunsuz hepsini gösterdi daha sonra programı kapattım tekrar açtım diğer tablo kısımlarına girdim güncelleme yaptım veri girişi yaptım hepsine daha sonra grafik kısmına girdim ve grafiği göstermek için butona bastım. Button kodunda hata aldım. Nedeni bilmiyorum programa ilk girdiğimde grafiklerin hepsi gözüküyor ama daha sonra diğer formların içerisinde gezdiğimde grafiğe gelip butona bastığımda hata alıyorum.

(27/08/2020, 08:30)merttr07 yazdı: Private Sub CommandButton1_Click()
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)

End Sub

Bu kodlamada hata aldım.Bu sefer

Bu kodda hata alıyorum

(26/08/2020, 23:04)berduş yazdı: grafik aktarma kodunu aşağıdaki kodla değiştirip dener misiniz?
graf modülündeki hy UserForm Grafik ekleme______________ kısmı
'hy UserForm Grafik ekleme________________________

Dim sTempFile As String



sTempFile = Environ("temp") & "\temp.gif"



Worksheets("örnekgrafik").ChartObjects(GrafAdi).Activate

ActiveChart.Export Filename:=sTempFile, FilterName:="GIF"

grafik.Image3.Picture = LoadPicture(sTempFile)



Kill sTempFile

Altta olan eklentide kodlarda farklılıklar var dosyadakini kullandım burada yazan kot da aynı hatayı veriyor.

'hy UserForm Grafik ekleme________________________
Dim sTempFile As String
Dim sChartName As String
Dim oChart As ChartObject

sTempFile = Environ("temp") & "\temp.gif"

Worksheets("örnekgrafik").ChartObjects(GrafAdi).Activate
ActiveChart.Export Filename:=sTempFile, FilterName:="GIF"

grafik.Image3.Picture = LoadPicture(sTempFile)

Kill sTempFile
MsgBox "Başarılı Şekilde Veriler Yüklendi"

End Function

Sizin ekte olan rardaki dosyada bulunan kod bu.

RE: Grafik Kodlamada Hata Alıyorum - berduş - 27/08/2020

2 kod aynı fazlalıkları sildim o kadar

RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 27/08/2020

İkisini de denediğimde aynı hatayı alıyorum