gal_vnv [ Pretorianin ]
Excel - Konkretny problem (wyświetlanie obrazków)
Prowadzę spis moich albumów (CD i MP3) w arkuszu Excela - na obecną chwilą jest tego już ponad 2000 pozycji - staram się to wszystko skrupulatnie katalogować i opisywać (rok wydania, dodatkowe informacje itp.). Postanowiłem pojechać na całego i "dobudować" do tego spisu podgląd skanów okładek. O co dokładnie mi chodzi - o wyświetlanie miniaturki okładki, ale dopiero po kliknięciu na "ikonkę" w komórce tabeli, najlepiej w okienku. NIE chodzi mi rzecz jasna o wyświetlanie wszystkich 2000 okładek na raz, tylko tej jednej konkretnej, którą akurat bym wybrał.
Zrobienie czegoś takiego w jakimś programie bazodanowym to bułka z masłem, ale ja chciałbym jednak pozostać przy Excelu. Proszę o poradę.
gal_vnv [ Pretorianin ]
Pozwolę sobie na małego ^UPa^ :)
Musk2 [ Konsul ]
Hym.... to moze poprostu z obrazkow zrobisz "htmlowe popapy" a w arkuszu wstawisz do nich linki pod miniaturki.
gal_vnv [ Pretorianin ]
Jak na razie, jedyny rozsądny (?) pomysł, jaki przyszedł mi do głowy to zapodanie okładek jako tła excelowych komentarzy - minusem jest to, że komórkę pod którą ukryty jest komentarz (tytuł albumu) trzeba wybrać myszką (czasami wygodnie byłoby skorzystać z klawiatury i "lecieć" po albumach kursorem). Załączam obrazek i wciąż czekam na pomysły.
fanlegii79 [ Konsul ]
Mozna by jakies makro napisac. Takie co naciskasz ctrl-z (jak zdjecie) i makro laduje ci zdjecie z pliku. Probelmy to to ze gdzies musisz zapisywac dla kazdej pozycji nazwe pliku z odpowiadajacym mu zdjeciem, oraz kasowac poprzednie (mozna tym samym makrem usuwac wczesniej wstawione rysunki). W sumie takie makro to by mialo z 5 linijek, nagraj sobie klikanie i chwile popatrz jak wyglada kod i cos pokabinuj, jak sobie nie poradzisz to napisz to podesle jakis kod. Wracam do lektury helpa do vba zeby sie dowiedziec jak powiazac uruchomienie makra z zaznaczeniem komorki. Acha nie wiem czy szybkosc dzialania bedzie zadawalajaca.
fanlegii79 [ Konsul ]
Te 5 linijek:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
wiersz = ActiveCell.Row
On Error Resume Next
SetBackgroundPicture "C:\Documents and Settings\jurek\Desktop\" & Range("B" & wiersz).Value
End Sub
Daja nawet ciekawy efekt...
fanlegii79 [ Konsul ]
i jeszcze jeden obazek