Ekran Resmi Alma

[hamza02]

İndir Günlük İcmal xlsm

Dosyayı indir Günlük İcmal xlsm

dosya.co

Arkadaşlar merhaba,
Bu dosyamda iki adet ekran resmi alma butonu var.
Birincisinde sayfa içine kaydediyor, sorun yok.
İkinci butonda masaüstüne kaydediyor ancak sadece kenar çizgileri olan boş bir resim oluşturuyor.

Yapmak istediğim, ikinci butonun birinci buton gibi belirtilen hücre aralığının resmini alması ve dosya adına mevcut tarih ve saati yazması.
Şimdiden teşekkürler.

 

[muhasebeciyiz]

Private Sub CommandButton2_Click()
    Dim jipeg As Range
    Dim caartObj As ChartObject
    Dim masaustu As String
    Dim timestamp As String
    Dim dosyaYolu As String
    
    masaustu = CreateObject("WScript.Shell").specialfolders("Desktop")
    timestamp = Format(Now, "yyyy-mm-dd_hh-mm-ss")
    dosyaYolu = masaustu & "\screenshot_" & timestamp & ".jpg"
    
    Set jipeg = ActiveSheet.Range("A1:F23")
    jipeg.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    Set caartObj = ActiveSheet.ChartObjects.Add(Left:=jipeg.Left, Top:=jipeg.Top, _
                                              Width:=jipeg.Width, Height:=jipeg.Height)
    
    With caartObj
        .Select
        .Chart.Paste
        
        DoEvents
        .Chart.Export Filename:=dosyaYolu, FilterName:="JPG"
        
        .Delete
    End With
    
    Set jipeg = Nothing
    Set caartObj = Nothing
    
End Sub

Buton2 kodunu silip bunu kullanınız

 

[hamza02]

Sayın muhasebeciyiz hocam elinize emeğinize sağlık, çok güzel olmuş, çok teşekkür ederim.

 

[hamza02]

Hocam ekran resmi almayı bir kaç ayrı dosyada kullanıyorum. Bu dosyalarda çalışırken excel'in sağ alt köşedeki ekran büyütme küçültme yüzdeliği % 80 le % 100 arasında değişiyor çalışma sayfasına göre, ama ekran resmi alırken resmin daha net olması için bu yüzdeliği artırıyorum. Ekran resmi aldıktan sonra tekrar küçültüyorum.
Bu işlemi kodlara ekleyebilir misiniz.
Örneğin % 80 ile çalıştığım sayfanın ekran resmini % 130 büyüterek versin ve sonra tekrar % 80 yapsın.
Veya resim boyutlandırma ile boyut artırırsak aynı işlem olur mu?

 

[hamza02]

Hocam birde ekran resmi aldığım hücreler renkli olduğu için daha önce farketmedim şimdi renksiz hücreler ekleyince farkettim resme dış çerçeve çizgisi oluşturuyor, bu çizgiyi eklememesini nasıl sağlarız.