Ekran Görüntüsü Alma

[uurc1]

excelde belirlediğimiz aralığın ekran görüntüsünü otomatik olarak alarak belirlediğimiz dosyaya yine otomatik olarak kayıt etmek istiyorum yardım ederseniz sevinirim.

 

[Necdet]

Merhaba,

Araştırınız

 

[uurc1]

Merhaba,

Araştırınız

İlettiğiniz linkte bir kod bulup kendi çalışmama uygulamaya çalıştım
resim klasörüne görüntüyü alıyor ancak "sayfa 2" ve "sayfa 3" ü silerek sadece hazırlık sayfasını bırakıyor bu iki sayfada kullandığım veriler mevcut olduğu için silinmemesi gerekli.
ikinci olarak ta resmi yatay kaydediyor dikeye çevirmem gerek.
henüz makroya hakim olmadığımdan hazır kodlar üzerinde basit değişiklikler yapıyorum bu sebeple uzun süre uğraşmama rağmen bahsettiğim sıkıntıları düzeltemedim.
mümkünse aşağıdaki kodu çalışma kitabı içinde yer alan diğer sayfaları silmeyen ve resmi dikey olarak kaydeden bir makro olarak düzenleyebilirseniz çok sevinirim. şimdiden teşekkür ederim.

Sub RESİM()
Dim oCht As Chart

On Error Resume Next
Application.ScreenUpdating = False
  Application.DisplayAlerts = False
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("D:\resim")
dosya = f.Files.Count + 1
Worksheets("HAZIRLIK").Range("A94:CB132").CopyPicture Screen, Picture

Set oCht = Charts.Add

With oCht
    .Paste
    .Export Filename:="D:\resim\" & dosya & ".jpg", Filtername:="JPG"
End With
For i = 1 To Sheets.Count
If Sheets(i).Name <> "HAZIRLIK" Then
Sheets(i).Delete
End If
Next
 Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub

 

[cellatzade46]

Merhaba,

Araştırınız

Merhabalar. Verdiğiniz link açılmıyor. Başka şekilde yardımcı olabilir misiniz?

 

[cellatzade46]

Excelde
1-Belirlenen hücre aralığının ekran görüntüsünü alıp belirlediğimiz klasöre otomatik kaydeden makro var mı?
2-Belirlenen hücre aralığının ekran görüntüsünü alıp hızlı resim, prntsc gibi sitelere upload edip resim bağlantısını verebilecek makro var mı?

 

[Necdet]

3 nolu mesajda kodlar var,onu denediniz mi?

 

[byfika]

Merhabalar,
Dener misiniz?
Koddaki yolu kendi bilgisayarınıza göre ayarlayın..Ayrıca excel sayfadaki bölümü de ayarlayın

 

[cellatzade46]

Merhabalar,
Dener misiniz?
Koddaki yolu kendi bilgisayarınıza göre ayarlayın..Ayrıca excel sayfadaki bölümü de ayarlayın

İlgilendiğiniz için teşekkürler makrodan hiç anlamıyorum. Ancak sanırım siz dosyanızda resimler klasörünü var sayılan yol olarak belirlemişsiniz bende değiştirmedim. Bu haliyle butona tıkladığımda hata veriyor. (Ret = OleCreatePictureIndirect(tPICTDEST, tIID, 1, IPic)

 

[byfika]

Ekteki dosyayı indirin, masa üstüne alın ve Rar dan çıkarın. Ben dosyanın içine Resimler1 adında klasör ekledim. Ama buna gerek yok. Butona tıkladığınızda masa üstüne Resimler1 adında klasörü açacak ve B2 ile G17 arasının resmini buraya kaydedecektir.
Ayrıca daha önce gönderdiğim dosya bende çalışıyor (Office 2010 Eng 32 Bit)

 

[cellatzade46]

Ekteki dosyayı indirin, masa üstüne alın ve Rar dan çıkarın. Ben dosyanın içine Resimler1 adında klasör ekledim. Ama buna gerek yok. Butona tıkladığınızda masa üstüne Resimler1 adında klasörü açacak ve B2 ile G17 arasının resmini buraya kaydedecektir.
Ayrıca daha önce gönderdiğim dosya bende çalışıyor (Office 2010 Eng 32 Bit)

İlgilendiğiniz için teşekkürler. Ancak aynı hatayı veriyor bende. Office 2019 Türkçe kullanıyorum. Sorun dil den mi kaynaklanıyor acaba?

 

[cellatzade46]

Kullandığım Ofis proğramı Office 2019 64 bit Türkçe(Mesaj düzenleme süresi dolmuş)