(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.