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