[ Boboje @ 31.10.2006. 00:00 ] @
na hardu imam jedan folder i u njemu excel dokument i vise drugih dokumenata. potrebno mi je da u excel dokumentu uradim linkove prema ostalim dokumentima ali da oni i dalje rade u slucaju da se taj folder iskopira na neko drugo mesto (cd naprimer). bitno mi je da excel dokument ostane u istom formatu zbog cestih izmena, znaci bez konvertovanja u html. kako da to izvedem?
[ Jpeca @ 31.10.2006. 07:39 ] @
Linkovi se u Excelu (ili Wordu) se dodaju iz menija Insert > Hyperlinik ili prečicom sa tastature CTRL+K. Izaberi Existing File or Web Page i izaberi link. Unesi odgovarajući tekst za link i OK.

Za link se (po defaultu) pamte relativne putanje u odnosu na aktivnu radnu svesku (t.j to je bazna adresa hiperlinka), tako da ne bi trebalo da imaš problema prilikom kopiranja. Baznu adresu možeš izmeniti na File>Propertie, kartica Summary.
[ Boboje @ 31.10.2006. 14:10 ] @
ok. uspeo sam
[ Boboje @ 02.11.2006. 05:44 ] @
da ne zapocinjem novu temu, treba mi pomoc oko izrade macroa. imam tabelu radjenu po slicnom principu kao na slici. u jednoj koloni su celije sa nazivima slika a u nekoj drugoj koloni hteo bih da u istom redu napravim link do te slike ako postoji na hardu. da li je moguce (i kako) napraviti makro koji bi pravio link po principu citanja sadrzaja celije odredjene kolone u istom redu i na taj sadrzaj bi samo dodao ekstenziju (.jpg). Sve slike su u istom folderu. imaju iste nazive kao i odgovarajuci tekst u celijama. tekst na linku je isti. ima oko 2000 slika pa mi je potrebno mnogo vremena da svaku pojedinacno linkujem.

naprimer ako se radi o celiji C10 u njoj mi treba link prema c:\folder\"A10".jpg i tako za sve redove od recimo 500-2500

ako bi mi neko pomogao oko ovoga bio bih mu zahvalan.

[ Jpeca @ 02.11.2006. 07:43 ] @
Dovoljno je da pomoću formule kreiraš link

=HYPERLINK("c:\folder\" & A1 & ".jpg", "link")

Pogledaj http://www.elitesecurity.org/t159020-0#1036029
[ timmy @ 02.11.2006. 09:04 ] @
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
[ Boboje @ 02.11.2006. 13:43 ] @
hvala timmy, uspelo je