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!
Satojen kuvien lisääminen Exceliin
MKL-70
10
832
Vastaukset
- 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...
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 :). 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?
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 koonJuuri 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 :)? 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ä.
Luetuimmat keskustelut
- 1015470
Suomen kaksikielisyys - täyttä huuhaata
Eivätkö muuten yksilöt pysty arvioimaan mitä kieliä he tarvitsevat? Ulkomaalaiselle osaajalle riittää Suomessa kielitai854779Työeläkeloisinta 27,5 mrd. per vuosi
Tuo kaikki on pois palkansaajien ostovoimasta. Ja sitten puupäät ihmettelee miksei Suomen talous kasva. No eihän se kas1394732Mikä on vaikeinta siinä, että menetti yhteyden kaivattuun, jota vielä ajattelee?
Mikä jäi kaihertamaan? Jos jokin olisi voinut mennä toisin, mitä se olisi ollut? Mitä olisit toivonut vielä ehtiväsi san3672159- 1031897
- 1021693
- 2571538
- 3691282
Pääsit koskettamaan
Sellaista osaa minussa jota kukaan ei ole ennen koskettanut. Siksi on hyvin vaikea unohtaa sinut kokonaan.591111- 2001040