seçilen aralığın resmini userform üzerinde görmek

[serendal]

selam arkadaşlar

yaptığım programın son aşamasındayım.
bu özelliğide halledebilirsem program biticek.ve sitede paylaşıcam.

ekte dosyayı gönderiyorum.

sayfa1 deki A1:K9 aralığının fotoğrafını çeker gibi , o aralığın resmini kaydetmek ve
commandbutton a tıklayınca ,userform da image nesnesinin üzerinde ilgili aralığın resmini göstermek istiyorum.

bu mümkünmüdür acaba yardım ederseniz çok mutlu olacağım
dediğim gibi son aşama olarak bu kaldı

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[serendal]

levent bey cevap verdiğiniz için teşekkür ederim fakat
programda frame1 üzerinde görüntü çıkmıyor
tekrar bakabilirmisiniz müsait olursanız

 

[dEdE]

Merhaba,
Üstadım bu gerçekten harika bir çözüm.
Bunu görünce aklıma excelin kamera özelliği geldi. Acaba kamera özelliğine benzer biçimde ilgili hücreler değiştiğinde bu değişiklik Userform üzerine yansıtılabilir mi?

Saygılar.

Not: Sayın serendal bende çalıştı. Sorun olmadı.

 

[Levent Menteşoğlu]

Merhaba,
Üstadım bu gerçekten harika bir çözüm.
Bunu görünce aklıma excelin kamera özelliği geldi. Acaba kamera özelliğine benzer biçimde ilgili hücreler değiştiğinde bu değişiklik Userform üzerine yansıtılabilir mi?

Saygılar.

Not: Sayın serendal bende çalıştı. Sorun olmadı.

Teşekkür ederim Sn dEdE. Alanı değişken yapabilirsiniz elbette. Resmi göster butonundaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton1_Click()
Range("a1:k" & [a65536].End(3).Row).CopyPicture xlScreen, xlBitmap
Frame1.ScrollBars = fmScrollBarsHorizontal
Frame1.Picture = PastePicture(xlBitmap)
End Sub

Not:Tüm resmi alması için framein dolayısıylada userformun yüksekliğini arttırın. Yada framein scrollbars özelliğini both olarak ayarlayın.

 

[Zeki Gürsoy]

Dinamik veri resmi için bu da farklı bir yolu..

 

[dEdE]

Dinamik veri resmi için bu da farklı bir yolu..

Merhaba,
Sayın Gürsoy, verdiğiniz örnekteki olayı UserForm üzerinde de yapabilirmiyiz diye sormuştum.
Sayın Menteşoğlu,

Alanı değişken yapabilirsiniz elbette.

demiş ama, sorum alanı değişken yapmak değil, userform üzerindeki resmi dinamik yapmaktı.
Gerçi komut CommandButton yerine Userform_Activate olarına yazılırsa güncelleme olur diye düşünüyorum.

Saygılar.

 

[Levent Menteşoğlu]

Userform kapatılıp açınca her şekilde güncel verileri resimleyecektir. Bununla ilgili kodları istediğiniz olaya yazabilirsiniz. Bu initialize olabileceği gibi sizinde belirttiğiniz gibi activate olayınada yazılabilir.

 

[Globe]

Dinamik veri resmi için bu da farklı bir yolu..

Sn. Zeki Gürsoy bu örnekte kullandığınız/eklediğiniz resim türü/denetimi nedir?/nasıl eklediniz?

Bu tür yeni bir resim çerçevesini (Formül çubuğunda range belirtebileceğim bir resim çerçevesi) eklemeye çalıştım ancak olmadı! Anladığım kadarı ile bu bir ActiveX denetimi değil ya da Ekle menüsü Çizimler kısmından eklenen bir resim türü de değil!

Yardımcı olursanız sevinirim.

 

[Zeki Gürsoy]

Sn. Zeki Gürsoy bu örnekte kullandığınız/eklediğiniz resim türü/denetimi nedir?/nasıl eklediniz?

Önce kaynağı seçip "kopyala" deyin. Yapıştırma seçeneklerinde "resim olarak" deyip yapıştırma işlemini bitirin. Resim nesnesi gelecektir.

Resim seçiliyken formül çubuğuna da resim olarak gelecek alanın adresini yazın (seçin).