(27/08/2020, 08:30)merttr07 yazdı: Private Sub CommandButton1_Click()Bu kodda hata alıyorum
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)
End Sub
Bu kodlamada hata aldım.Bu sefer
(26/08/2020, 23:04)berduş yazdı: grafik aktarma kodunu aşağıdaki kodla değiştirip dener misiniz?Altta olan eklentide kodlarda farklılıklar var dosyadakini kullandım burada yazan kot da aynı hatayı veriyor.
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
'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.