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
856
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
S-kauppa nosti hintoja, K-kauppa laski
Elintarvikkeiden arvonlisävero laski vuodenvaihteessa 13,5 prosenttiin. S-kauppa siirsi alennuksen suoraan katteisiin pi675927Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan
Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan3495749Hiihtäjä Vilma Nissisen kommentit aiheutti paniikkia
ja hernettä vedettiin nenään. Nissinen kertoi torstaina haastattelussa, kun häneltä kysyttiin, että tykkääkö hän hiihtä934731Huuto yltyy persujen piirissä Venezuelan johdosta.
Kohta kakofonia yltyy kun persut tajuavat mitä Venezuelassa tapahtui. Von den Leydenki jo kipuilee kuten persut EU:ssa y122235Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!
Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva182048Nyt ottaa persua pattiin: sähköauto joulukuun myydyin
🤣 prööt prööt pakoputkellaan pörisevää persua ottaa nyt saamaristi pattiin, kun paristoilla kulkeva sähköauto on noussu521952Ovatko Perussuomalaiset kommunisteja?
Toiset sanovat että ovat, toiset sanovat että eivät. Ainakin heillä on paljon sen aatteen piirteitä, koska haluavat kont431870Martina vuokraa yksiötä
Nyt on tarkka'ampujan yksiö vuokrattavana 800 e. Toivottavasti löytyy hyvä asukas.2511211Jokaisella tytöllä on supervoimansa
Millaisia ajatuksia artikkeli herättää? Mainos: Dove | ”Itsetuntoni oli ihan romuttunut” – Peppina Rosén haastaa tavan2031114Voi kauhiaa: keikkapaikat keikahtavat juopottelun puutteessa!
Vai ei tule rahaa artistille viinanmyynnin vähennyttyä. Missähän muualla kannattavuus korreloi myrkyn imemismäärän ka641061