belirli bir alanı excelden jpeg olarak çıkarmak

[kakara]

belırlı hucrelerı excelden jpeg olarak çıkarmak ıstıyorum ustadlarım. ekte gonderdıgım dosyada detaylı bılgılendırme yaptım . b5 - t26 arasını jpeg olarak excelden cıkarmak ıstıyorum.

 

[zozotr]

Merhaba;
Daha önceden forumdan aldığım bir kod. Bu kendinize göre uyarlayabilirisniz. Öncelikle bir modül ekleyip bu kodu yazın. Dosya yolunu değiştirebilirisniz.

Sub JPEGYAP()
Dim ws As Worksheet
Dim rng As Range
Dim tempChart As Chart


Set ws = ThisWorkbook.Sheets("Sheets(1)") ' Sayfa ismini değiştirebilirsiniz.
Set rng = ws.Range("B5:T26") ' Resim almak istediğiniz aralığı değiştirebilirsiniz.


Set tempChart = Charts.Add
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
tempChart.Paste
tempChart.Export "C:\image.jpg", "JPEG" ' Dosya Yolunu Buraya Yazabilirsiniz.


tempChart.Delete
End Sub

 

[kakara]

@zozotr ustad malesef verdıgınız kod boş olarak çıkarıyor excelden

 

[zozotr]

ben denedim sizin dosyada çalışıyor.
dosyayı ekliyorum. ekran görüntüsü de bırakıyorum.Kolay Gelsin

 

[kakara]

@zozotr ustad bende nedense resım yap dedıgımde baska bır sayfaya grafık seklınde bırseyler olusturuyor

 

[zozotr]

Evet ama sizin dosyanız da oluşturuluyor.
Lütfen C: kalsörünün altını kontol edin. Orada image adında oluşturulan resminiz var

 

[kakara]

@zozotr yok ustadım sızın paylastıgınız excelde de denedım malesef bende olmuyor

 

[Korhan Ayhan]

İnceleyiniz.

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

Makro ile Hücrelere Resim Çekip Bilgisayara Aktarma

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

www.excel.web.tr