Makro ile Hücrelere Resim Çekip Bilgisayara Aktarma

[buyocan]

İ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.

İndir Hücre Foto Kaydet

Dosyayı indir Hücre Foto Kaydet

dosya.co

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

 

[buyocan]

Yardımcı olabilecek kimse yok mu?

 

[Korhan Ayhan]

Merhaba,

Linkte bir paylaşımda bulunmuştum. Orada ki linkteki konuyu irdeleyiniz.

Makro Jpg Kaydetme Boş Resim Sorunu

Merhaba arkadaşlar. Excelde bir sayfayı jpg olarak masaüstüne kaydetmek istiyorum. Makro kodum bundan 2 sene önce sorunsuz çalışıyordu tekrar kullanmam gerekti ancak şuan masaüstüne kaydediyor fakat boş bir resim olarak kaydediyor nerede hata olduğunu bulamadım. Excel 2016 kullanıyorum Windows...

www.excel.web.tr

 

[buyocan]

Hocam inceledim sayfayı ama değişen bir şey olmadı. Yine F8 ile tek tek yapınca resim eklenebiliyor. F5 ile resim boş çerçeve olarak çıkıyor.
Kaydedilen yer de D:\Download\ İçinde C:\ gibi bir dizinde değil.
Win 10 Lisanslı
Ofis 365 Lisanslı

 

[Korhan Ayhan]

Deneyiniz.

Sub Hucrelere_Resim_Cek()
    Dim Grafik As Object
    
    Sheets("Fiyat ve Üretim").Select
    ActiveWindow.Zoom = 110
    Range("A1:G25").CopyPicture xlScreen, xlBitmap
    ActiveSheet.Paste
    Selection.Cut
    
    Set Grafik = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=580, Height:=500)
    
    Grafik.Activate
    Grafik.Chart.Paste
    Grafik.Chart.Export "D:\Download\Foto.jpg"
    Grafik.Delete
    
    MsgBox "Resim kayıt edilmiştir."
End Sub

 

[buyocan]

Korhan bey emekleriniz için teşekkürler. Her iki şekilde de çalıştı.