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

868

Ää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. Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?

      Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.
      Maailman menoa
      275
      3932

    2. Riikka jytkytti naftan hinnan jo yli 2,3 euroon

      Sannan aikaan esimerkiksi dieseliä selvästi kalliimpaa bensaakin sai 1,3 eurolla. https://www.is.fi/autot/art-200001188
      Maailman menoa
      92
      3575

    3. Vasemmiston feministinaiset puolustavat islamia

      mikä on täysin järjenvastaista, mutta eihän femakoilla paljon järkeä olekkaan, leijuvat siellä omassa kuplassaan. Myös
      Maailman menoa
      162
      2557

    4. Ei se halua mitään!!

      Arkailija koko tyyppi!
      Ikävä
      62
      2335

    5. Jätän tähän viesti kaivatullesi

      jos jotain jäänyt sanomatta. 👇
      Ikävä
      154
      1912

    6. Olet kyllä erittäin huono yhdistelemään pisteitä.

      Etkä vain sinä vaan kaikki teilläpäin.
      Ikävä
      34
      1727

    7. Päivän Sanna: Suomi maailman onnellisin maa

      Sanna muutti Suomen maailman onnellisimmaksi maaksi. Hänen pyyteetön työnsä maailmalla tuottaa edelleen tulosta.
      Maailman menoa
      21
      1402

    8. Onko jo liian "vanha" vai mitä mieltä olet? 57-v. saa raakaa tekstiä tv:ssä

      The Summit Suomi tv-ohjelmassa 57-vuotiaan Maritan jaksamista kyseenalaistettiin iän takia. Onko tässä iässä jo liian "v
      50 plus
      30
      1288

    9. Etkö sitten itse

      ole koskaan ylittänyt rajaa?
      Ikävä
      33
      1285

    10. Mitä järkeä iskeä

      Varattua ja yrittää saada sitä eroamaan
      Ikävä
      46
      1202
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt