hücredeki resim

[zulfuernek]

aktif sayfada A1 hücresinde bulunan resmi userform arka plan resmi olarak nasıl ayarlayabilirim.

veya userform üzerine image nesnesi eklesem ve bir buton sayesinde bu image nesnesine sayfada bulunan resmi nasıl eklerim

 

[PLİNT]

Merhaba
Resim sayfada "image" nesnesi üzerinde ise;

Private Sub CommandButton1_Click()
Me.Image1.Picture = Sayfa1.Image1.Picture 'formdaki image nesnesine
Me.Picture = Sayfa1.Image1.Picture 'form arkaplanına
End Sub

 

[Ömer BARAN]

Merhaba.

-- Belge kaydedilerek kapatılacaksa,
-- Sayfa1 isimli sayfada Image 1 adında bir image nesnesi varsa,
---Sayın PLİNT'in verdiği yöntem de dikkate alındığında,

UserForm üzerindeki nesnenin (CommandButton veya Label gibi) Click olayı kodu ve
Userform_Initalize kodu aşağıdaki şekilde değiştirilerek (geri bildirim olmadığından verdiğim kod blokunu kaldırdım) istenilen sonuca ulaşılabilir.

Kod tarafından kullanılan Image1 nesnesinin bulunduğu Sayfa1'i gizleyerek kullanabilirsiniz elbette.
.

[COLOR="Red"]Verdiğim kodu, geri bildirim olmadığından sildim.[/COLOR]

 

[zulfuernek]

ömer hocam merhabalar. çok çok özür diliyorum sizden. dediğinizi uygulamaya çalıştım fakat başarılı olamadım. ancak şimdi bir yöntem buldum ve harika oldu. 5 dk içerisinde bitireceğim örnek şablonu sizinle paylaşacağım. harika bir düşünce canlandı kafamda sayın ömer hocam ))

 

[zulfuernek]

http://dosya.co/w8ecpg4mgvst/USERFORM_ARKA_PLAN_DEĞİŞTİRME_1_(COMMAND_BUTTON_).xlsm.html


ömer hocam inceleyiniz lütfen. siz değerli hocalarımın fikirleri sayesinde günler süren bir çalışma sonucunda bu veriyi oluşturdum. umarım artık benimde burdakilere bir katkım olmuştur. saygılarımla.

geri dönüşlerinizi bekliyorum hocam

 

[Ömer BARAN]

Ya yanlış belge yüklediniz ya da ben bir şey göremiyorum.
Önceki kod cevabımın uygulandığı örnek belge ekte, inceleyiniz.

Belgeye buradan da erişebilirsiniz.
.

 

[Ömer BARAN]

Olumlu/olumsuz geri bildirim olmadığından önceki cevabımın eklerini kaldırdım.
.