Satojen kuvien lisääminen Exceliin

MKL-70

Osaako kukaan antaa järkevää toimintatapaa kuvien lisäämiseksi Exceliin. Kyseessä on suuri taulukko, missä ison väkimäärän yhteystiedot. Tarvetta olisi saada heidän kuvat ympättyä mukaan.

Jotta taulukko säilyisi käytettävänä, linkitän kuvat esim. henkilöiden nimistä. Mutta mihin kuvamäärä kannattaa tallentaa? Onko Excelissä olemassa tähän tarpeeseen jotain hyvää käytäntöä?

Kiitos avusta!

10

894

Äänestä

    Vastaukset 10

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kertoi jo...

      kannattaa harkita jotain muuta, tietokantaa esimerkiksi... Tosin Evolution nimisessä ohjelmassa voi lähetellä sähköpostia ja pitää yhteystietoja yllä helposti, kuvien kera...

    • kunde

      fiksuintahan ne on laittaa kommenttiin ja homma hoituu sekunneissa alla olevalla makrolla tai
      varmaan muutaman kymmenen manuaalisesti lisätyn kuvan jälkeen makroa alat kaipaamaan...

      nyt nimet sarakkeessa C ja kuvat samassa kansiossa mihin tallennat Excel tiedoston.
      Hakee sitten kansiosta solun kommenttin solussa olevan nimen perusteella kuvan( eli jos solussa Matti Meikäläinen hakee kansiosta kuvan Matti Meikäläinen.jpg).
      Kuvan kokoa voit säädellä ja helppo muutella muutenkin tarpeisiin sopivaksi

      Option Explicit

      Sub LisääKuvaKommenttiin()
      Dim vika As Long
      Dim solu As Range

      vika = Range("C65536").End(xlUp).Row
      For Each solu In Range("C1:C" & vika)
      If Not solu.Comment Is Nothing Then solu.Comment.Delete
      With solu
      .AddComment
      .Comment.Visible = False
      .Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
      .Comment.Shape.Height = 300
      .Comment.Shape.Width = 300
      End With
      Next
      End Sub

      Keep EXCELing
      @Kunde

      • MKL-70

        Ihan loistavaa @Kunde, että autat näin paljon - kiitos!

        Koodi toimii siihen asti, kun kuvia riittää. Sen jälkeen ensimmäiselle kuvattomalle riville tekee kyllä tyhjän kommenttiboksin ja heittää errorin "System Error &H80070057 (-2147024809)". Käsittääkseni koodin piti osata ohittaa rivit, joihin ei ole liittää kuvaa vai ymmärsinkö oikein?

        Olisi hienoa, jos ehtisit kommentoimaan, sillä vallan innoistuin tuosta toiminteesta yli 10 vuoden takaisen VisualBasic-peruskurssin jälkeen :).

      • kunde
        MKL-70 kirjoitti:

        Ihan loistavaa @Kunde, että autat näin paljon - kiitos!

        Koodi toimii siihen asti, kun kuvia riittää. Sen jälkeen ensimmäiselle kuvattomalle riville tekee kyllä tyhjän kommenttiboksin ja heittää errorin "System Error &H80070057 (-2147024809)". Käsittääkseni koodin piti osata ohittaa rivit, joihin ei ole liittää kuvaa vai ymmärsinkö oikein?

        Olisi hienoa, jos ehtisit kommentoimaan, sillä vallan innoistuin tuosta toiminteesta yli 10 vuoden takaisen VisualBasic-peruskurssin jälkeen :).

        " Käsittääkseni koodin piti osata ohittaa rivit, joihin ei ole liittää kuvaa vai ymmärsinkö oikein?"
        et...
        nyt poistaa solusta kommentin jos on ja lisää sitten uuden, muuten lisää vaan kommentin ja virhe voi syntyä jos kuvaa ei löydy

        koodissa ei olenyt mitään virhetarkastelua kuvanpuuttumiselle ja siksi herjaa
        helpoimmalla pääsee kun lisää vaan On Error Resume Next koodiin seuraavasti

        Option Explicit

        Sub LisääKuvaKommenttiin()
        Dim vika As Long
        Dim solu As Range
        On Error Resume Next
        vika = Range("C65536").End(xlUp).Row
        For Each solu In Range("C1:C" & vika)
        If Not solu.Comment Is Nothing Then solu.Comment.Delete
        With solu
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
        .Comment.Shape.Height = 300
        .Comment.Shape.Width = 300
        End With
        Next
        End Sub

    • MKL-70

      Nyt toimii - tuhannet kiitokset :)!

    • MKL-70

      Vielä yksi kysymys ;). Kuvat ovat eri kokoisia, joten saisiko Excelin määrittelemään kommenttiruudun kuvan koon mukaan?

      • kunde

        meinaatkos , että kommentissa oleva kuva olisi alkuperäisen kokoinen?
        kaipa toikin onnistuu, kun jollain keinolla saa luettua fiksusti kuvan koon

      • MKL-70
        kunde kirjoitti:

        meinaatkos , että kommentissa oleva kuva olisi alkuperäisen kokoinen?
        kaipa toikin onnistuu, kun jollain keinolla saa luettua fiksusti kuvan koon

        Juuri tuota meinaan ja arvelinkin, että homma ei ole mikään helppo, sillä kuva lisätään kuitenkin kommenttiruutuun taustakuvana.

        Yritän pärjätä näin - suuri kiitos avusta. Pitääkö sulle maksaa palkkaa :)?

      • kunde
        MKL-70 kirjoitti:

        Juuri tuota meinaan ja arvelinkin, että homma ei ole mikään helppo, sillä kuva lisätään kuitenkin kommenttiruutuun taustakuvana.

        Yritän pärjätä näin - suuri kiitos avusta. Pitääkö sulle maksaa palkkaa :)?

        kyllähän sponsorointi kuulostaisi hyvältä...
        ei se nyt kummonen jutska ollutkaan pikku kikkailulla...


        Option Explicit

        Sub LisääKuvaKommenttiin()
        Dim vika As Long
        Dim solu As Range
        Dim leveys As Long
        Dim korkeus As Long
        On Error Resume Next
        Application.ScreenUpdating = False
        vika = Range("C65536").End(xlUp).Row
        For Each solu In Range("C1:C" & vika)
        If Not solu.Comment Is Nothing Then solu.Comment.Delete
        ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & solu & ".jpg").Select
        leveys = Selection.Width
        korkeus = Selection.Height
        Selection.Delete
        With solu
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\" & solu & ".jpg"
        .Comment.Shape.Height = korkeus
        .Comment.Shape.Width = leveys
        End With
        Next
        Application.ScreenUpdating = True
        End Sub


        Keep EXCELing
        @Kunde

    • MKL-70

      Otin käyttöön - SUURI kiitos :)!

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Puukotus Kajaanissa

      Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu
      Kajaani
      61
      1630

    2. Taas henkirikos

      Kuka lienee nyt asialla.
      Ilomantsi
      29
      1255

    3. Tulisitko huomenna mun luo?

      🤗
      Ikävä
      85
      1098

    4. Nyt se syksy on sitten alkanut

      Esimerkiksi tänään sataa aamusta iltaan, ja nytkin.
      Maailman menoa
      43
      915

    5. Mitä söpö

      Mies mietit?
      Ikävä
      67
      845

    6. Minä en ole koskaan

      Rakastanut ketään toista yhtä paljon kuin sinua
      Ikävä
      92
      824

    7. Humalassa autolla ajo.

      Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.
      Suomussalmi
      15
      789

    8. Hyvä on sitten, jos et sitä s*ksiä halua kanssani.

      Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.
      Ikävä
      131
      735

    9. Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."

      Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i
      Kotimaiset julkkisjuorut
      19
      735

    10. Vähän pitää

      Kiusia ja näyttää
      Ikävä
      116
      701

    11. Jäljitelmä Birginit

      Ei jumaleisson, Jeffin vaimo kertoo et nää Hermesit olikin jäljitelmiä ja timangit labrarääsää. Anna mun kaikki kestää �
      Kotimaiset julkkisjuorut
      151
      659

    12. Hurja pako Kuhmossa

      19 vuotias kaahasi humalassa jalkakäytävälle tänään. Kuka mitä häh.
      Kuhmo
      4
      632

    13. Suloinen ja herkkä

      Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.
      Rakkaus ja rakastaminen
      31
      625

    14. Anteeksi J-mies

      Anteeksi että myötävaikutin siihen että rakastuit minuun, jota et voi koskaan saada. Viimeksi kun näimme ja katselimme t
      Ikävä
      76
      603

    15. Taidat olla

      Luovuttanut jo minun suhteeni osalta?
      Ikävä
      43
      601

    16. Minä muistan

      Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol
      Ikävä
      45
      580

    17. Mä voisin rakastua noihin tähti silmiin

      Katseesi on niin lumoava nainen💚.
      Ikävä
      19
      566

    18. Jos tullaan toisiamme vastaan, niin

      pitäiskö pysähtyä ja onnitella?
      Ikävä
      46
      558

    19. Hyvää yötä hurmuri

      Iltaa haaveeni! Kauniita unia😘 Jospa me vielä nähtäis ja juteltais, suukoteltais ja halittais, siliteltäis ja hyväiltä
      Ikävä
      25
      551

    20. Kenen viisautta on ollut laittaa tie väärällä murskeella pilalle

      Kenen viisautta on ollut kun Siimeksen/Kylmänpurontie pantu pilalle kun on ajettu liian karkeaa mursketta. Rengasliikke
      Hyrynsalmi
      19
      512
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt