İmage Nesnesine Resim Ekleme

[Feylosof]

Merhaba;
Şu kod ile Userformdaki image nesnesine resim ekleyebiliyorum ama userformu kapatıp açtıktan sonra resim gidiyor. Resmi nasıl kalıcı hale getirebiliriz.

Private Sub CommandButton1_Click()
resim = Application.GetOpenFilename(FileFilter:="," & "*.jpg", Title:=" Şimdi resim seçiniz.")
If resim <> False Then Image1.Picture = LoadPicture(resim)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

 

[Haluk]

Daha sonra Image nesnesindeki resim değişecek mi? Yoksa, hep aynı resim mi kalacak Image nesnesinde ?

.

 

[Feylosof]

@Haluk hocam merhaba
Değitirme komutu vermedikçe duracak. Ama ihtiyaç olunca commandbutton ile değiştirme imkanı olacak elbette.

 

[Haluk]

Dosya hep aynı bilgisayarda mı çalışacak, yoksa e-postayla ya da başka bir şekilde başka bir bilgisayara gönderilecek mi?

.

 

[Feylosof]

Evet farklı bilgisayarlarda da çalışacak. @Haluk

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.


.

 

[Feylosof]

.

Buradaki dosyayı inceleyin.


.

İdris hocam merhaba benim eklemeye çalıştığım resim userform üzerinde bulunan image nesnesi. Eklemek isrediğim resmi excel dosyası içinden değil klasör içinden alıp yapıştıracak.

 

[Haluk]

Ekli dosyayı inceleyebilirsiniz....

Image nesnesinde görüntülenen resim, dosyaya gömüldüğü için artık taşınabilir durumdadır. Dosyanın her açılışında en son seçilen resim görüntülenir, dosyayı başka bir bilgisayara gönderdiğinizde yine aynı şekilde çalışır...

.

 

[Feylosof]

Sayın @Haluk üstadım çok teşekkür ederim. Tam da istediğim gibi olmuş elinize sağlık.