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
Adı Soyadı:
me.... se....
Yaşı:
29
Konum:
İzmir
Ofis Versiyonu:
Ofis 2019 64 Bit
Son Oturumu:
18/10/2023,13:20
Cevapla