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
444
Vastaukset
- 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
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt312923Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.431501Kun kohtaat jotain ainutlaatuista
ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö19951Mua ahdistaa
Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi32919Ei tämä enää tervettä oo
Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.22908- 52878
Tuli vain mieleen
että etkös sä yritäkin muiden miehiä? Se sun tuttava kertoi. En arvosta tuollaista naista, ihmekös kun oot sinkku. m -37830Perämoottoreiden huolto melkoisen kallista
Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä36783Tanskademarit: ilman risusavottaa ei rahaa!
Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os173783- 48689