Verdiğiniz kodlamanın 12. adımı hata veriyor. Bunu daha farklı şekilde, formumda bir gözat butonu oluşturarak çözdüm. Bu hali ile işimi görüyor. Tşk. Kodlarım aşağıdaki gibidir.
Kod:
Private Sub Komut24_Click()
Call Edit_Hyperlink
End Sub
Sub Edit_Hyperlink()
Dim ButonAdi As String, PencereBasligi As String
Dim BagliDosya As String, Dosya
Dim Yeri As String
ButonAdi = "Dosya Ekle"
PencereBasligi = "Köprü Olusturulacak Dosyayi Seç"
Yeri = "Application.FollowHyperlink \\" & Environ("computername") & "\"
With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "Tum Dosyalar", "*.*"
End With
.AllowMultiSelect = True
.FilterIndex = 1
.ButtonName = ButonAdi
.InitialFileName = vbNullString
.InitialView = msoFileDialogViewDetails
.Title = PencereBasligi
If .Show Then
For Each Dosya In .SelectedItems
BagliDosya = Left(Dosya, InStrRev(Dosya, "")) & "#" & Dosya
Me.[resim] = BagliDosya
Next Dosya
End If
End With
End Sub