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

870

Ää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. Persujen vaalilupaus oli euron bensa

      Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.
      Maailman menoa
      93
      2168

    2. Vain vasemmistohallitus saa minut menemään töihin

      Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n
      Maailman menoa
      45
      2132

    3. Maataloustuet perittävä korkojen kera takaisin

      Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi
      Maataloustuki
      50
      1855

    4. Topi osti Askon

      Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan
      Maailman menoa
      75
      1370

    5. Mitä kirjainta kaipaat?

      Pitkästä aikaa tämmöistä. Onko kirjain muuttunut edellisestä. ☺️
      Ikävä
      86
      1271

    6. Kastaa ja upottaa on eri sanat

      Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan
      Kaste
      219
      1151

    7. Uskomatonta touhua!

      Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki
      Haapavesi
      31
      1100

    8. Oliko se oikeasti epäselvää

      sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men
      Ikävä
      58
      1048

    9. Miten hän sinua katsoi?

      😊😊😊😊😊😊
      Ikävä
      68
      969

    10. Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?

      Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.
      Luterilaisuus
      285
      910
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt