resimlere otomatik köprü oluşturmak

[xlomba]

arkadaşlar elimdeki klasörde numara sırasıyla giden yüzlerce resim var. yapmak istediğim;
elimdeki resmin adı: 45235.jpg olsun... excel hücresine bu resmin adını 45235.jpg olarak yada 45235 yazdığımda o resme otomatik köprü vermek.

yardımcı olursanız sevinirim.

 

[usta07]

Ek dosyayı inceleyiniz.
Kodlar Sayın Halit ÖZDEMİR tarafından yazılmıştır.
Umarım işinizi görür.

 

[tahsinanarat]

Sayfanın kod bölümüne aşağıdaki kodu ekleyin, c sutununa geldiğinizde dosya yolunu ekleyeceğiniz yeri gösteriniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Dim Fname As String
Dim response
If Target.Count > 1 Then Exit Sub
If Intersect(Range("C2:C20"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Target
If Trim(Len(r.Value)) = 1 Then r.Value = UCase(r.Value)
Next
response = MsgBox("Buraya dosya yolu eklemek istiyor musunuz ?", vbYesNo)
If response = vbYes Then
Fname = Application.GetOpenFilename
ActiveSheet.Hyperlinks.Add Anchor:=Range(Target.Address), Address:=Fname
End If
Application.EnableEvents = True
End Sub

 

[xlomba]

arkadaşlar her ikinizinde yaptığı kod çok güzel olmuş, elinize sağlık.ancak bana sadece resmin adı girildiğinde sadece köprü oluşturması.(köprü oluşacak dosya yolu kod içinde olacak şekilde) yardımcı olursanız sevinirim.