Ako bas hoces iz koda moze i ovako:
Code:
Sub NapraviLinkove()
Dim slika As String
While ActiveCell.Offset(0, -1).Value <> ""
slika = "c:\folder\" & ActiveCell.Offset(0, -1).Value & ".jpg"
If Dir(slika) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=slika, TextToDisplay:="link"
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub
Postavis aktivnu celiju pored prve slike i pozoves macro
Pozdrav
Shadowed: dodati code tagovi