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

811

Äänestä

    Vastaukset

    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. Yritän tänään laittaa taajuudet kohdilleen

      Jotta törmätään kirjaimellisesti. Ei tätä kestä enää perttikään. Olet rakas ❤️
      Ikävä
      66
      2248

    2. Onko kaivattusi

      kyltymätön nainen, pystyisitkö olemaan hänelle loputon mies, vai meneekö toisinpäin.
      Ikävä
      38
      1863

    3. Vanhuksen varpaankynsien leikkaus 89 euroa...

      Huh huh.......Parturikäynti olisi varmasti ollut 250 euroa? Kallis on suomi nykyään.
      Maailman menoa
      171
      1500

    4. Viulu vaiennut

      Eikö pisnikset suju ? Vai miksi pahin yrittäjä vouhka on "kadonnu" maan alle. 🤣
      Suomussalmi
      23
      1487

    5. Anne Kukkohovi. Myy likaisia alushousujaan.

      Kuka ihme ostaa jonkun naisen likaisia alushousuja, menee lujaa kyllä tälläkin housujen myyjällä.
      Kotimaiset julkkisjuorut
      83
      1208

    6. Nainen, sellaista tässä ajattelin

      Minulla on olo, että täällä on edelleen joku, jolla on jotain käsiteltävää. Hän ei ole päässyt lähtemään vielä vaan jost
      Ikävä
      177
      1144

    7. Kyllä tekee kipeää

      Luopua kaikesta mitä on elämässä saavuttanut😞 ei vaan ole enää yhtäkään hiljaista vuorokautta🤬
      Ikävä
      21
      1096

    8. Kauanko skuutteja on siedettävä? Ei tietoa liikennesäännöistä, ajellaan miten sattuu ja missä vain.

      Kauanko on kestettävä sähköpotkulautojen terrorismismia? Niillä ajelevat eivät tiedä, tai jos tietävätkin, niin eivät vä
      Maailman menoa
      105
      1074

    9. Luotatko kaivattuusi?

      Jos et, mistä kiikastaa?
      Ikävä
      77
      929

    10. En mä tiedä mitä tapahtuu

      siis tykkäisitköhän musta oikeasti. Ehkä oot pelannu liikaa rahapelejä, ehkä rakastat tyhjiä arpoja.
      Ikävä
      9
      922
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt