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

783

Ää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. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      172
      7202

    2. Suomea odottaa karu kohtalo

      Mitäs menitte uhkailemaan ja leikkimään kovaa. Ei mitään mahdollisuuksia Venäjää vastaan.
      Maailman menoa
      265
      1803

    3. Kerro mistä alkaen

      Se ihastuminen alkoi? Mikä vuosi?
      Ikävä
      67
      1264

    4. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      64
      1167

    5. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      67
      1156

    6. Kuka on oikein

      Kaivattusi?
      Ikävä
      55
      1144

    7. Bachelor-Joonas tapasi Monican isän - "Appiukko" antoi koulutusta vävypojalle - Katso kuvat tästä!

      Joonas ja Monica ovat pitäneet yhtä Bachelor Suomi -kuvausten jälkeen. Tämä todistaa, että tosi-tv:ssä voi syntyä rakkau
      Suomalaiset julkkikset
      5
      1098

    8. Tosiaankin, jos julkaisette täällä henkilötietoja

      Minkäänlaisia, se on poliisiasia. VPN, proxy- tai julkinen yhteys ei salaa mitään. Poliisi pystyy jäljittämään ja saamaa
      Ikävä
      93
      1092

    9. Gallup: Mitä mieltä olet uudesta Putous-kaudesta: hyvä, keskinkertainen, huono?

      Putous on saanut kuraa niskaan mm. kaksimielisistä jutuista. Ohjelma on lasten suosikki ja lapset toistelevat hokemia ti
      Tv-sarjat
      51
      1075

    10. Olet upea nainen

      Upea nainen oot.
      Ikävä
      36
      1026
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt