İstediğimiz aralığın resmini çekip kopyalama.

[Muhammet Okumuş]

Arkadaşlar merhaba.
Yapılmasını istediğim uygulama, belirlemiş olduğumuz aralığın resmini çekip, excele koymak. Örneğin ben örnek dosyayı hazırlarken prtsc sysrq tuşu ile ekranın resmini çektim sonra paint ile düzenledim ve excele resim olarak ekledim. Bunu excel makro ile nasıl yapabilir.

 

[Necdet]

Merhaba,

Makroya gerek yok, Excelin Kamera özelliğini kullanabilrsiniz.
Kamera ikonunu hızlı erişim çubuğuna ekleyip kullanabilirsiniz.

Şekli çizdikten sonra şekli seçip formül çubuğundan =$A$1:$B$4 gibi ilgili alanı seçip formül verirseniz hücreler değiştikçe resimdeki değerlerde değişecektir. Formül koymazsanız sabit bir görüntü elde edersiniz.

Sonra normal şekil biçimlendirir gibi istediğiniz şekilde şekli biçimlendirebilirsiniz.

Makro kaydet ile kod alamadım, bu da ilginç.

 

[Muhammet Okumuş]

Sn Necdet Bey. Bu özelliği bilmiyordum. Çok teşekkür ederim.

 

[Necdet]

Sn Necdet Bey. Bu özelliği bilmiyordum. Çok teşekkür ederim.

Rica ederim, güle güle kullanınız.

 

[Zeki Gürsoy]

Sub Range_Picture()
Dim Pic As Picture
    
Range("a1:b4").CopyPicture

Set Pic = ActiveSheet.Pictures.Paste

Pic.Top = [e1].Top 'Yukarıdan pozisyon
Pic.Left = [e1].Left 'Soldan pozisyon

End Sub

 

[Muhammet Okumuş]

Süper bir özellikmiş bu. Necdet Bey size gerçekten çok teşekkür ederim.

 

[Necdet]

Evet kodları buldum ama Zeki bey eklemiş zaten.

Şekil oluştuktan sonra formülü de verirseniz değişken bir görüntü elde edersiniz.

 

[Muhammet Okumuş]

Sn Zeki Bey. Size de teşekkür ederim. Ancak kodda düzenleme yapabilir miyiz? Örneğin her butona bastığımda bir önceki resmi silip yerine yenisini yapıştırabilir mi? Bir de resmi kopyalacağımız yeri, resmin boyutlarını ayarlamamız mümkün mü?

 

[Muhammet Okumuş]

Kamera özelliğini makro ile pasif ve aktif yapmak mümkün mü? Makrolar çalışırken dosyayı yavaşlatıyor.

 

[Necdet]

Kullanmazsanız sorun olmaz

 

[ofbalki]

2003 te de bu kamera varmı arkadaşlar

 

[Necdet]

2003 te de bu kamera varmı arkadaşlar

Olmamııı :biggrin:

 

[Muhammet Okumuş]

Sub Range_Picture()
Dim Pic As Picture
    
Range("a1:b4").CopyPicture

Set Pic = ActiveSheet.Pictures.Paste

Pic.Top = [e1].Top 'Yukarıdan pozisyon
Pic.Left = [e1].Left 'Soldan pozisyon

End Sub

Merhaba, bu çekilen resmi masaüstüne resim olarak kaydedebilir miyiz?

 

[Muhammet Okumuş]

http://www.excel.web.tr/f48/secili-hucre-aralyoyny-resim-jpeg-olarak-kaydetme-t106905.html

adresinde cevap varmış. Teşekkürler.