excelin kuvat+luettelo?

hyon

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?

3

425

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 Sub

        Kiitos 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

    1. Kuka pistetty kylmäksi

      Ketähän joutunu puukkohipan uhriksi? Tietääkö kukkaan?
      Kajaani
      22
      2387
    2. Mietin että

      Onko tarinallamme vielä luvussa tilaa kohtaamiselle vai jääkö se tähän.
      Ikävä
      94
      1523
    3. Kaipaatko sinä

      Yhtään meidän katseita
      Ikävä
      116
      1248
    4. Oletko samaa mieltä

      Että on parempi olla erillään?
      Ikävä
      75
      1130
    5. Mira Luoti ja Julkkisselviytyjät 2017 - Ketä kuumottaa juuri nyt?

      HS: Tässä ohjelmassa Mira Luoti kertoi kokeneensa seksuaalista väkivaltaa "PMMP-yhtyeen Mira Luoti kertoo Ylen uudessa
      Kotimaiset julkkisjuorut
      18
      949
    6. Kirjallinen varoitus

      On annettu eräälle henkilölle. hyssytellään kuitenkin asiasta
      Äänekoski
      52
      852
    7. Julkisuuden henkilön päiväin päätös

      Sitä vaan, että kyllä nyt kaikki tietävät kuka oli Eemeli Peltola (kansanedustaja, joka päätti päivänsä eduskuntatalossa
      Sinkut
      249
      851
    8. Törkeä eläinsuojelurikos Sonkajärvellä

      Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo
      Sonkajärvi
      18
      831
    9. MESTARI SIVALTAA JÄLLEEN

      https://www.is.fi/politiikka/art-2000011436243.html Suomen ainoa Mestari lausuu tosiasiat Sannasta , Tuomiojasta ja hil
      Kajaani
      209
      830
    10. Mun tuli yhtäkkiä

      Ikävä sua❤️...
      Ikävä
      34
      785
    Aihe