userformda resim sorunu

[sinembagci]

arkadaşlar, ekte bir derneğin üye bilgileri ve aidatlarını taksitler halinde ödeme bilgileri var. yeni üye kaydı yaparken resimyolu textbox ına üyelerin c klasöründe soyadı ile başlayan jpg resim yollarını gireceğim.
örneğin c\resim*atalay.jpg gibi. Bu kayıtlar liste sayfasına kaydediliyor. değiştir commandine bastığımda seçili kişinin bilgileri ve resmi de gelsin istiyorum. resimleri nasıl yerleştirebilirim?
programı shift tuşu ile açarak inceler misiniz?

 

[Haluk]

Merhaba;

RAR uzantılı dosyaları açamadığım için dosyanızı inceleyemedim ama aşağıdaki linki incelerseniz, size faydası olabilir...

http://www.excel.web.tr/viewtopic.php?p=10590#10590

 

[sinembagci]

o dosyayı daha önce incelemiştim. am o resimleri listboxtan alıyor. ben c klasöründen almak istiyorum.

 

[Haluk]

ListBox' da C:\Resim klasöründen alıyor. Aynı durum.

Neyse, siz hazır cevap arıyorsunuz. Kolay gelsin.

 

[Mahmut Bayram]

Sayın sinembagci, aşağıdaki adresteki programı incelemenizi tavsiye ederim.
http://www.excel.web.tr/viewtopic.php?t=5972&highlight=bioclass
Bulamazsanız. Bioclass diye aratın.
Gerçi VBA şifreli fakat arkadaştan kodları görmek için izin isteyebilirsiniz
KOLAY GELSİN

 

[Mahmut Bayram]

veya şunu deneyin

mahmut adında bir resim olduğunu varsayalım bu resmi
UserFormda ki Image nesnesinde göstermek için

[vb:1:b04e5302cd]Private Sub UserForm_Activate()
' Aktif sayfada "mahmut" adı ile belirlediğimiz resim kopyalanır
ActiveSheet.Shapes("ogres").CopyPicture
' UserFormda bulunan image1 nesnesinin resmi
' Bu module(ResimPaste) sayesinde kopyaladıgımız resim yapılır
Me.Image1.Picture = PastePicture
End Sub [/vb:1:b04e5302cd]

!!!= PastePicture ayrı bir module ile gerçekleşir

 

[Biolight]

...
!!!= PastePicture ayrı bir module ile gerçekleşir.
...

Gerekli olan module ektedir.
Dosyayı çalışmanıza import file yöntemi ile yükleye bilirsiniz.

Kolay gelsin.

 

[Levent Menteşoğlu]

Ã?ncelikle M sütunundaki resim adlarını sadece atalay.jpg, balta.jpg şeklinde yazın. Sonrada değiştir butonu altındaki kodlara aşağıdaki iki satırı ilave edin.

[vb:1:61e453c1ce]degisim.Image1.PictureSizeMode = fmPictureSizeModeZoom
degisim.Image1.Picture = LoadPicture("C:\Resim\" & ActiveCell.Offset(0, 12).Value)
[/vb:1:61e453c1ce]