Sayfanın Jpeginin alınması

[meleklerim]

Excelde yazdırma aralığı belirlenen 1 sayfanın makro ile jpeg olarak kaydı mümkün mü?
ekran görüntüsü almak monitörden monitöre değiştiği için zor oluyor

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub JPG_Yap()
    Dim oWs As Worksheet
    Dim oRng As Range
    Dim oChrtO As ChartObject
    Dim lWidth As Long, lHeight As Long
    
    Set oWs = ActiveSheet
    
    ScreenUpdating = False
    On Error Resume Next
    Sheets("Baski").Select    ' girilecek sayfa
    
        dosya_adı = Range("D3").Value & ".jpg"       '    D3 te verilecek dosya adı var
        klasor = ActiveWorkbook.Path & "\Jpg\"       '    Excel dosyanın bulunduğu klasördeki Jpg klasörünün içine kayıt yapar
        
        Set oRng = oWs.Range("$H$7:$Y$53")           '    Jpg yapılacak alan
        oRng.CopyPicture xlScreen, xlPicture
        lWidth = oRng.Width
        lHeight = oRng.Height
        
        Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)
      
        oChrtO.Activate
        With oChrtO.Chart
          .Paste
          .Export Filename:=klasor & dosya_adı, Filtername:="JPG"
        End With

        oChrtO.Delete
    ScreenUpdating = True
End Sub

Sanırım bu işinizi görür. Sorun yaşarsanız gerekli yardımı da yaparım.
İyi çalışmalar
Not: Asri Akdeniz tarafından hazırlanmıştı

 

[meleklerim]

malesef çalışmadı arkadaşım
dosya adı yerine "d3" yeirne "ah2" yaptım (tarih var)
jpeg yapılacak alanı da güncelledim
sayfa adını da "Rapor" olarak değiştirdim
makro çalışınca bir işlem yapıyor sanki ekran görüntüsü alıyor (ekran hafif yenileniyor) ancak klasöre gittiğimde resmi bulamıyorum.

 

[Tevfik_Kursun]

Merhaba,
Dosyanızın küçük bir örneğini koysanız hemen bakarım. Ben bu makroyu yıllardır kullanıyorum. Hiç problem yaşamadım.
İyi çalışmalar

 

[meleklerim]

buyrun, teşekkür ederim

 

[Tevfik_Kursun]

Merhaba,
Uygun yere bir klasör açın. Dosyayı içine kayıt edin. Klasörünüze Jpg adlı bir klasör daha açın. Şimdi dosyayı açıp makroyu çalıştırın.
AH2 ye tarih yazmışsınız. Excel bunu isim olarak almaz. Çünkü o beş basamaklı bir sayıdır. Onu aynı tarihi belirtebilsin diye AI1 de farklı bir görünüş oluşturdum. İşinizi görür diye düşünüyorum. Sonuç örneğini de ekliyorum. Sorun olursa yine yazabilirsiniz.
İyi çalışmalar

 

[meleklerim]

cevabınızdaki resmi silebilir misiniz?

 

[meleklerim]

teşekkür ederim, çalışıyor

 

[Tevfik_Kursun]

Rica ederim. Dönüş yaptığınız için ben teşekkür ederim.
Kolay gelsin