Simdi seçtiği grafiği ne yazık ki imga getirmiyor. Aşağıda grafik kodu.
Dim sTempFile As String
    Dim sChartName As String
    Dim oChart As Chart
   
   
    sTempFile = Environ("temp") & "\temp.gif"
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ KOTU DEĞİŞİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ HACMİ DEĞİŞİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ AKTİF DOLULUK ORANI").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
    Set oChart = Worksheets("örnekgrafik").ChartObjects("BARAJ YAĞIŞ VE BUHARLAŞMA").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("FeCl3 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("Al2(SO4)3 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("PAC SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("POLİMER (SU) SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KLOR SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("NaOH SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KMnO4 SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("POLİMER (ÇAMUR) SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("KİREÇ SARFİYAT GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ÇAMUR ÜRETİM GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("GİRİŞ DEBİSİ GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ÇIKIŞ DEBİSİ GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("SU ALMA YAPISI ELEKTRİK").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ARITMA TESİSİ ELEKTRİK").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
     
      Set oChart = Worksheets("örnekgrafik").ChartObjects("ÜRETİM ORTALAMASI GRAFİĞİ").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("SU ALMA YAPISI ÜRETİM").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
    Set oChart = Worksheets("örnekgrafik").ChartObjects("ARITMA TESİSİ ÜRETİM").Chart
   
    oChart.Export Filename:=sTempFile, FilterName:="GIF"
   
    grafik.Image3.Picture = LoadPicture(sTempFile)
   
   
 
    Kill sTempFile
MsgBox "bitti"
End Function