Taulukoissa on n. 200 kuvaa (logoja yms) lisättynä aikojen saatossa, haluaisin saada makrolla luettelon kuvista.
Mallia: kuva1.jpeg, kuva2.mikä_pääte_sattuukin_olemaan
Kuvan nimihän voi olla mikä sattuu.(ja näkyy olevankin)
Olen yrittänyt löytää vinkkiä googlella, ilman mainittavia tuloksia..aikaa kuluu, järki menee.
Sattuuko kenelläkään olemaan vinkkiä asiasta?
excelin kuvat+luettelo?
hyon
3
453
Vastaukset 3
- Excelisti
Käsittääkseni Excelin laskentataulukkoon upotettu kuva ei säilytä missään alkuperäistä nimeään. Olenko väärässä? Mistä sinä näet taulukkoon upetetun kuvan alkuperäisen nimen?
Sorry, että ei ole aikaa vastailla kuin hätäisesti.
Nimiruudullahan se nimi näkyy...
Tossa makro, josta voit säveltää tai toiset jeesata. Sinun tapauksessa et varmaan ole nimennyt kuvia liittäessäsi niitä- eli nimet on tyyliin kuva1, kuva2 jne.
Option Explicit
Sub Testi()
Dim kuva As Picture
Dim solu As Range
Set solu = Range("b3")
Set kuva = ActiveSheet.Pictures.Insert("c:\kunde\kunde.bmp")
With kuva
.Top = solu.Top
.Left = solu.Left
.Name = "kunde.bmp"
.OnAction = "Nimi"
End With
End Sub
Sub Nimi()
MsgBox "Klikkasit kuvaa " & Application.Caller
End Sub- hyon
kunde kirjoitti:
Sorry, että ei ole aikaa vastailla kuin hätäisesti.
Nimiruudullahan se nimi näkyy...
Tossa makro, josta voit säveltää tai toiset jeesata. Sinun tapauksessa et varmaan ole nimennyt kuvia liittäessäsi niitä- eli nimet on tyyliin kuva1, kuva2 jne.
Option Explicit
Sub Testi()
Dim kuva As Picture
Dim solu As Range
Set solu = Range("b3")
Set kuva = ActiveSheet.Pictures.Insert("c:\kunde\kunde.bmp")
With kuva
.Top = solu.Top
.Left = solu.Left
.Name = "kunde.bmp"
.OnAction = "Nimi"
End With
End Sub
Sub Nimi()
MsgBox "Klikkasit kuvaa " & Application.Caller
End SubKiitos avusta, kokeilen säveltää kun kiireiltä ehdin.(Työnteko haittaa harrastuksia jne..)
>>et varmaan ole nimennyt kuvia liittäessäsi niitä>>
En tosiaan ole nimennyt kuvia.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Lehtikankaan oppilas kuolema
Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞421221Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S651008- 36904
- 109859
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125836- 38733
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.77642- 51626
Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle66611- 42609
Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.31596Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei2552Nyt kaatuu Kuisla
Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee27543Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev120511- 49508
- 94496
- 60474
- 42452
- 45446
- 35417