UserForm ile Belirtilen yola dosya,resim vb dosya eklenmesi

[marvenst]

Arkadaşlar merhaba sayenizde projemle alakalı baya bir yol ilerledim. Sıtede cok yararlı bılgıler var.
Ancak olusturdugum userformda kartvızıt ekle butonu ılıstırdım.
bu butona tıkladıgımda mesela belırttıgım konuma resmı kaydetsın ıstıyorum. hatta mumkunse resmın adını fırmanın ısmını gırdıgımde otomatık olarak firma1.jpg gelsın ıstıyorum
bu mumkunmu acaba

 

[hmtstc]

hocam dosyayı paylaşabilirsen daha iyi olur. bir de resim ne resmi olacak ?

 

[marvenst]

Merhabalar,

örnek çalışma.xlsm

drive.google.com

drıve e yukledım dosyayı.
orneklendırme yaptım. ılgınıze teesekkurler

 

[marvenst]

Merhabalar,

örnek çalışma.xlsm

drive.google.com

drıve e yukledım dosyayı.
orneklendırme yaptım. ılgınıze teesekkurler

ayrıca resım kartvızıt resmı olacak.

 

[hmtstc]

hocam, kartvizit formatını dosya.tc sitesinden gönderir misiniz

 

[hmtstc]

hocam senden ses gelmedi ben ayarladım inşallah işine yarar


buradan indirebilirsiniz

userform_gorsel_ekleme.xlsm dosyasını indir - download

userform_gorsel_ekleme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

iyi günler

 

[marvenst]

Kusura bakmayın lütfen homeoffice çalışınca online toplantılar sıklaştı ancak bakabildim.
Çalışmanız için teşekkür ederim ancak, ben resim seçtiğimde, seçtiğim resmi belirttiğim yola kaydetmesini istiyorum bu mümkünmü.
Yanı resım sec butonu altında kaydet butonu olucak ve sectıgım resmı belırttıgım yola kaydedıcek.

 

[hmtstc]

merhaba,

bu kod ile yapabilirsiniz.

Private Sub CommandButton3_Click()
yol = Cells(10, 2) & "\"
SavePicture UserForm1.Image1.Picture, yol & UserForm1.TextBox1.Text & ".jpg"

End Sub