A
ahmedummu
Misafir
Merhaba arkadaşlar
Commandbutton yardımı ile aşağıdaki kod ile userform üzerindeki image1'e resim geliyor. Fakat resmi Tekxbox1'de yazılı olan isim ile aşağıdaki kodda ki resimler klasörüne kopyalaması gerekiyor.
resimyolu = ThisWorkbook.Path \ resimler & "\"
resimyolu = ThisWorkbook.Path & "\" BU HALİ İLE SORUN YOK ÇALIŞIYOR ama resmi resimler klasörüne değilde çalışma sayfasının olduğu klasörün içine kopyalıyor.
Aşağıya Commandbutton içindeki kodların hepsini kopyalıyorum.
Yani resimler adlı klasör olmazsa çalışma dosyasının olduğu klasörün içine resmi Textbox1'in değerine göre isimlendirip oraya kopyalıyor. Kişiyi çağırdığımızda resmide geliyor. Bir sorun olmadan çalışıyor. Benim yapmak istediğim Çalışma dosyasının bulunduğu klasörün içindeki resimler dosyasına kopyalaması. Yardımcı olursanız sevinirim.
Commandbutton yardımı ile aşağıdaki kod ile userform üzerindeki image1'e resim geliyor. Fakat resmi Tekxbox1'de yazılı olan isim ile aşağıdaki kodda ki resimler klasörüne kopyalaması gerekiyor.
resimyolu = ThisWorkbook.Path \ resimler & "\"
resimyolu = ThisWorkbook.Path & "\" BU HALİ İLE SORUN YOK ÇALIŞIYOR ama resmi resimler klasörüne değilde çalışma sayfasının olduğu klasörün içine kopyalıyor.
Aşağıya Commandbutton içindeki kodların hepsini kopyalıyorum.
Kod:
On Local Error Resume Next
Dim deger As Long
deger = Image1.Picture
If deger > 0 Then
MsgBox (TextBox1.Value & "'nin resmi zaten eklenmiş"), 56, "Resim Ekle"
Exit Sub
End If
Dim Pencere As FileDialog, resim As String
Set Pencere = Application.FileDialog(msoFileDialogFilePicker)
With Pencere
.Filters.Clear
.Filters.Add "Resim Dosyaları", "*.bmp; *.jpg; *.jpeg; *.wmf", 1
If .Show = -1 Then
For Each p In .SelectedItems
resimyolu = ThisWorkbook.Path \ resimler & "\"
resimadı = TextBox1.Text
VBA.FileSystem.FileCopy p, resimyolu & resimadı & "." & "jpg"
Image1.Picture = LoadPicture(resimyolu & resimadı & "." & "jpg")
Next p
Else
MsgBox "Resim seçmediniz. ", vbInformation, "Resim Seç"
End If
End With
resim = vbNullString
p = vbNullString
Set Pencere = Nothing
Moderatör tarafında düzenlendi: