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
835
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
Miksei Björn Wahlroos jaa rahaa köyhille?
Esimerkiksi Nordean tiloissa? Vai tuovatko ne köyhät hiekkaa marmorilattioille ja siksi ei pysty mursunviiksi pystyyn k2374094Vassarit kummittelee pääni sisällä joulunakin
Hetki sitten alkoi punakapina. Joulupäivään mennessä ollaan jo Lindtmanin nuoruusvuosien näytelmäkerhossa. Tapaninpäivän402449Oho, köyhyys väheni Marinin hallituskaudella
👋💥🤕 Tuonkin Marinin hallitus sössi --- Vuosien 2019–2023 sosiaaliturva- ja verotusperusteiden muutokset suhteessa h552022Onko 65-vuotias liian vanha lähtemään rintamalle?
Suomessa reserviläisikä nousee ensi vuoden alusta 65 ikävuoteen. Jatkossa asevelvollinen kuuluu reserviin sen vuoden lop4751928Jouluksi miettimistä: kuka tai mikä valmistaa rahan?
Nyt kun on ollut vääntöä rahasta ja eritoten sen vähyydestä, niin olisi syytä uida rahan alkulähteille, eli mistä se syn431780Yksikään persu ei ole saanut Nobelin palkintoa
Kertoo paljon persujen älyn puutteesta. Demareista mm. Ahtisaari on kyseisen palkinnon saanut.931636Kohuotsikoihin nousseet Aku Hirviniemi ja Mikko Leppilampi jouluna tv:ssä!
Täydellinen joulu -leffassa on iso kaarti suomalaisia näyttelijöitä. Mukana mm. Elena Leeve, Antti Luusuaniemi sekä koh241374Ex-Puoli seitsemän juontaja Anniina Valtonen yllättää - Uudessa roolissa tv:ssä!
Monen suosikki Anniina Valtonen tv:ssä! Valtonen on tuttu Ylen meteorologina, mutta hän juonsi myös Puoli seiskaa. Nyt A331125Mitä metsaman tuottaa
Törkypuhetta, ahdistusta, pahaa mieltä, riitaa, eripuraa, köyhien menestymättömien ja maattomien kurjien vähättelyä. Sit1201070Korvasiko kaupunki Morkon talon?
Tän missä oli joku vesivuoto talon ulkopuolella? Vai miten saaga päättyi?91054