(26/08/2020, 08:34)berduş yazdı: Export komutundan kaynaklanan bir sorun galiba, resimler 0 boyutlu yani hatali oluştuğundan resim yüklenmediği için hata veriyor. Ama henüz çözümü bulamadim
Şuan tek sorun ve tek sıkıntım grafik gözüküyor.
Grafik kısmında aynı hata bendede oluyor
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
Private Sub CommandButton1_Click()
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)
End Sub
Bu kodlamada hata aldım.Bu sefer
Sorun çözüldü
(27/08/2020, 08:54)merttr07 yazdı: Sorun çözüldü
Yine hata verdi kapattım açtım hata aldım
(27/08/2020, 08:54)merttr07 yazdı: Sorun çözüldü
(27/08/2020, 08:54)merttr07 yazdı: Sorun çözüldü
Yine hata verdi kapattım açtım hata aldım
(27/08/2020, 09:05)merttr07 yazdı: (27/08/2020, 08:54)merttr07 yazdı: Sorun çözüldü
(27/08/2020, 08:54)merttr07 yazdı: Sorun çözüldü
Yine hata verdi kapattım açtım hata aldım
Private Sub CommandButton1_Click()
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)
End Sub
Program ierisinde gezmeden grafik kısmına girdiğimde sorun yaşamıyorum ama program içerisinde gezdikten sonra yukarıda bulunan kodda hata alıyorum.