Moro
Tarkoitus olisi seuraavanlainen elikkä kun soluun kirjoitetaan jokin numero esim. jonkin kappaleen sarjanumero niin sitten kun solua klikataan niin näkyviin tulisi kuva kappaleesta...
Onko tälläinen mahdollista tehdä ja jos on niin miten?
Olen aivan amatööri tämän excelin kanssa......
Tarkoitus olisi seuraavanlainen elikkä kun soluun kirjoitetaan jokin numero esim. jonkin kappaleen sarjanumero niin sitten kun solua klikataan niin näkyviin tulisi kuva kappaleesta...
Onko tälläinen mahdollista tehdä ja jos on niin miten?
Olen aivan amatööri tämän excelin kanssa......
Vastaukset 5
Vanhimmat
on tehdä siitä numerosta "Hyperlinkki" ja sitä sitten klikkaamalla avautuu kuva kuvanavaamiseen asetetulla ohjelmalla.
mahdollinen näyttötapa. Lisätään soluun "Kommentti" ja kommenttiteksti muutetaan kuvaksi.
Klikkaa solua jossa sarjanumero on ja "Lisää" > "Kommentti"
Solun oikeaan ylänurkkaan ilmestyy punainen kolmio.
Klikkaa taas solua ja sitten hiiren oikealla "Muokkaa kommenttia".
Avautuu keltainen kommentti-ikkuna. Klikkaa hiiren oikealla sen ikkunan reunaa ja "Muotoile kommenttia".
"Värit ja reunaviivat"-välilehdellä avaa "Täyttöväri" ja sieltä alhaalta "Täytön tehosteet".
"Kuva"-välilehdellä "Valitse kuva"-kohdasta haet tarvittavan kuvan > OK
Nyt kun hiiri viedään solun päälle jossa se sarjanumero on, avautuu kommenttiin kuva ja kun viet hiiren pois kuva häipyy.
Muuta sen kommentin kokoa sitten kuvalle sopivaksi vetämällä reunoista. Hiiren oikealla ja "Muokkaa kommenttia".
tuosta jälkimmäisestä ehdotuksesta että kun haet sitä kuvaa "Kuva"-välilehdellä, niin siinä alaosassa rastita kohta "Lukitse kuvasuhde" ennenkuin painat OK. Kuvan käsittely on nyt helpompaa.
taulukon moduuliin...
muuta kuvien polku ja tiedostotyyppi sekä kuvan koko sopivaksi
nyt lisää kuvat sarakkeen A soluihin
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
Target.AddComment
Target.Comment.Shape.Fill.UserPicture "C:\" & Target & ".jpg"
Target.Comment.Shape.Height = 200
Target.Comment.Shape.Width = 200
End If
End Sub
Kiitos paljon onnistui tämä homma