Çözüldü DOSYA ADINI VE DOSYA YOLUNU LABELE YAZ

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
723
Beğeniler
5
Excel Vers. ve Dili
türkçe
#1
butona tıklayınca dosya yol ve adı labellere yazsın..

userform2 de resim ekle butonuna basınca pictureye resim geliyor dosya yolu ve dosya adı labele
 

Ekli dosyalar

Son düzenleme:
Katılım
31 Aralık 2014
Mesajlar
1,559
Beğeniler
31
Excel Vers. ve Dili
Excel 2010
#4
Merhaba
Dosyanızı görme imkanım yok ama istediğiniz şöyle bir şeymi?

Kod:
 Image1.Picture = LoadPicture(RESİM)
LabelX.Caption = Split(Dir(RESİM), ".")(0)
Veya

Kod:
  Image1.Picture = LoadPicture(RESİM)
 Set a = CreateObject("scripting.filesystemobject")
 LabelX.Caption = a.getbasename(RESİM)
 

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
723
Beğeniler
5
Excel Vers. ve Dili
türkçe
#5
@PLİNT hocam botun üzerindeki kod şu şekilde



Dim fPath As String
Dim fdgPicker As FileDialog
fPath = ThisWorkbook.Path & "\Pics"
ChDrive fPath
Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)
With fdgPicker
.InitialView = msoFileDialogViewThumbnail
.Filters.Add "Graphics Files (*.bmp; *.gif; *.jpg; *.jpeg)", "*.bmp;*.gif;*.jpg;*.jpeg"
.FilterIndex = 1
If .Show = -1 Then

Image2.Picture = LoadPicture(.SelectedItems(1))

resimadresi = fdgPicker.InitialFileName
resim_adi = fdgPicker.SelectedItems(1)

Label2.Caption = resim_adi
Label9.Caption = resimadresi



'MsgBox "Resim seçildi.", vbInformation, " Bilgi"
Else
MsgBox "Resim seçmediniz.", vbInformation, " Uyarı"
End If
End With


ancak bu koda herhangi bir dosyadan image nesnesine resim seçebiliyorum ve labellere gerekli bilgiler de geliyor ama bir eksiği var labelin bir tanesine resim adı dediğimiz label9 a açtığım resim dosyasının bulunduğu dosya adı geliyor label 2 ye ise sadece o JPEG dosyasına ilişkin dosya adı yazacağı erde tüm dosya yolu yazıyor

oysa label 2 ye dosyanın sadece adı
label9 a ise dosyanın bulunduğu dosya yolu gelsin

http://dosya.co/ygtshjvu9vkf/22222.xlsm.html userform 2 de
 

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
723
Beğeniler
5
Excel Vers. ve Dili
türkçe
#7
@PLİNT hocam ben size ne diyeyim yaaa. mükemmelleri yapıyorsunuz . çok teşekkür ederim. hocam resimlerin altındaki textboxa yeni isim yzıp resim ismini değiştirmemiz mümkünmü. seçili olan resmin
 
Katılım
31 Aralık 2014
Mesajlar
1,559
Beğeniler
31
Excel Vers. ve Dili
Excel 2010
#8
Aşağıdaki uzantıları artırabilirsiniz
Kod:
Private Sub CommandButton1_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox2 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label8.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label1.Caption & uzantı(a)) = True Then
Name yol & Label1.Caption & uzantı(a) As yol & TextBox2.Text & uzantı(a)
End If
Next
Label1.Caption = TextBox2.Text
TextBox2 = ""
End Sub

"Commandbutton4" için
Kod:
Private Sub CommandButton4_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox3 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label9.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label2.Caption & uzantı(a)) = True Then
Name yol & Label2.Caption & uzantı(a) As yol & TextBox3.Text & uzantı(a)
End If
Next
Label2.Caption = TextBox3.Text
TextBox3 = ""
End Sub
 

zulfuernek

Altın Üye
Katılım
24 Haziran 2017
Mesajlar
723
Beğeniler
5
Excel Vers. ve Dili
türkçe
#9
@PLİNT alkış diyorum başkada bir şey demiyorum hocam (y)(y)(y)(y)(y)(y) hocam dosya bitti sayılır.

size bir konuda bilgi sorucam. mesela ben resimleri dosyadan seçtim ilgili hücrelerede dosya yollarını yazdı diyelim. sorun yok buraya kadar. (tabi çözebilirsek :) ) peki ben bu dosyaları farklı bilgisayara taşırsam sorun yaşamam değilmi program resimleri açmada sorrun yaşamaz değilmi. dosya yllarını kaydettiği için ?
 
Üst