Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel 2007 - Automatyczne dodanie zdjęć do komentarzy

LyyynX 21 Cze 2015 21:13 726 8
  • #1 21 Cze 2015 21:13
    LyyynX
    Poziom 13  

    Posiadam w kolumnie A 3265 pozycji o nazwach 1,2,3,4,5...3265 .
    Posiadam w folderze 3265 zdjęc i chcę by excel zaimportował mi te zdjęcia do komentarza lub do kolumny B
    Czy jest to możliwe?

    Ten vba przy wpisaniu nazwy i zdjęcia wyświetla mi je przy próbie powielenia przy pozostałych komórkach wyświetla mi oczywiście to samo zdjęcie..

    Sub DodajGrafike()
    For Each cell In Selection
    MojObraz = "C:\foty\"
    With cell.AddComment
    .Shape.Fill.UserPicture MojObraz
    .Shape.Height = 100
    .Shape.Width = 100
    End With
    Next cell

    End Sub

    0 8
  • Pomocny post
    #2 21 Cze 2015 23:01
    JRV
    Specjalista - VBA, Excel

    Oczywiście tak jak określono:
    For Each cell - dla każdej komórki - MojObraz = "C:\foty\" (ten sam)

    1
  • #3 22 Cze 2015 11:28
    LyyynX
    Poziom 13  

    no nie wskazałem tego samego pliku tylko folder w którym pliki sie znajdują

    0
  • Pomocny post
    #4 22 Cze 2015 11:44
    JRV
    Specjalista - VBA, Excel

    VBA nie tak silny, aby sam wybrać zdjęcia według komórek. Potrzebujesz jakiś sposób, aby powiedzieć mu. Tz. dla każdej komórki nazwu pliku.
    Najprostszy sposób, jeśli pliki są nazywane 1.jpg, 2.jpg, ,... 3265.jpg
    Wtedy

    Code:
    MojObraz = "C:\foty\" & cell.row & ".jpg"

    1
  • #5 22 Cze 2015 16:48
    LyyynX
    Poziom 13  

    JRV napisał:
    [syntax]MojObraz = "C:\foty\" & cell.row & ".jpg"[/syntax]

    -nie znaleziono pliku o podanej nazwie... :/

    0
  • #6 22 Cze 2015 17:03
    JRV
    Specjalista - VBA, Excel

    Nie jest zaskakujące. Stąd nie widoczne, jakie pliki w folderze foto.
    Nawet jeśli wiesz, to nie wiadomo, jak powinno odnosić się do komórek.

    JRV napisał:
    jeśli pliki są nazywane

    0
  • #7 22 Cze 2015 18:01
    LyyynX
    Poziom 13  

    nie ma komendy która ujmie kolumne (teksty zawarte w komórkach danej kolumny) i powiąże z nazwami plików?

    0
  • Pomocny post
    #8 22 Cze 2015 18:11
    JRV
    Specjalista - VBA, Excel

    LyyynX napisał:
    teksty zawarte w komórkach

    Przez ten czas nie wiem zawartości komórek.
    Jak w tych komórkach nazwy plikow, wtedy
    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    1
  • #9 25 Cze 2015 22:00
    LyyynX
    Poziom 13  

    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    0