İyi günler.
Forumda araştırarak eklediğim exceldeki gibi bir kod elde ettim. Sorunum makroyu F5 ile başlattığımda resim çekip dışa aktarıyorken boş çerçeve olarak çıkıyor.
Fakat elle F8 ile tek tek satırları geçince resim başarılı bir şekilde dışa aktarılıyor. Bu konuda yardımlarınızı bekliyorum.
Şimdiden yardım edenlere teşekkürler.
Sub Hucrelere_Resim_Cek()
Application.DisplayAlerts = False
Dim Pic As Picture, graf As Chart
Sheets("Fiyat ve Üretim").Select
ActiveWindow.Zoom = 110
Range("A1:G25").CopyPicture
Set Pic = ActiveSheet.Pictures.Paste
With Pic
.Copy
.Delete
End With
Set graf = ActiveSheet.ChartObjects.Add(0, 0, 580, 500).Chart
With graf
.Paste
.Export "D:\Download\ Foto.jpg"
.Parent.Delete
End With
Application.Wait Now + TimeValue("00:00:04")
End Sub
Forumda araştırarak eklediğim exceldeki gibi bir kod elde ettim. Sorunum makroyu F5 ile başlattığımda resim çekip dışa aktarıyorken boş çerçeve olarak çıkıyor.
Fakat elle F8 ile tek tek satırları geçince resim başarılı bir şekilde dışa aktarılıyor. Bu konuda yardımlarınızı bekliyorum.
Şimdiden yardım edenlere teşekkürler.
Sub Hucrelere_Resim_Cek()
Application.DisplayAlerts = False
Dim Pic As Picture, graf As Chart
Sheets("Fiyat ve Üretim").Select
ActiveWindow.Zoom = 110
Range("A1:G25").CopyPicture
Set Pic = ActiveSheet.Pictures.Paste
With Pic
.Copy
.Delete
End With
Set graf = ActiveSheet.ChartObjects.Add(0, 0, 580, 500).Chart
With graf
.Paste
.Export "D:\Download\ Foto.jpg"
.Parent.Delete
End With
Application.Wait Now + TimeValue("00:00:04")
End Sub