Kuvan liittäminen linkkinä ongelmana - APUA!

Jumppari-Linda

Hei,

Miten saan liitettyä kuvan linkkinä? Siis siten, että seuramme logo on jpg:na (c:\kuvat\logot\logo1.jpg ) ja kuva pitäisi liittää niin, että mikäli logo muuttuu, muuttuu se Excelin kaikissa taulukoissakin...

Suuri kiitos ratkaisun keksineelle!

8

471

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      ehkäpä helpoin tapa on Contol toolboxista lisätä image control ja liittää siihen se logo ja kopsata sitten kontrolli kaikkiin taulukoihin. Sen jälkeen vaan kun logo muuttuu niin nimeää uuden logon vanhan nimiseksi ja aina kun Excel aukeaa se päivittää logon taulukoihin.

      Sub Auto_Open()
      Dim kuva As Object
      Dim i As Long

      For i = 1 To Sheets.Count
      For Each obj In Worksheets(i).OLEObjects
      If obj.OLEType = 2 Then
      Set kuva = obj
      kuva.Object.Picture = LoadPicture("C:\kuvat\logot\logo1.jpg ")
      End If
      Next
      Next
      End Sub

      Keep EXCELing
      @Kunde

    • Jumppari-Linda

      Loistavaa, kiitos Kunde!

      Vielä en ehtinyt kokoleilemaan mutta miten kuvan sijainti saadaan määrättyä?

      Linda

    • kunde

      no raahaa se se kontrolli sopivaan kohtaan ja kahvoista fiksaat koon sopivaksi, jos ei onnaa niin kysy koodia sitten...

      @Kunde

      • Jumppari-Linda

        Valitettavasti en saa onnistumaan eli saisiko rautalangasta väännettynä. Eli mistä tuo image control lisätään?

      • kunde
        Jumppari-Linda kirjoitti:

        Valitettavasti en saa onnistumaan eli saisiko rautalangasta väännettynä. Eli mistä tuo image control lisätään?

        valikosta VIEW / TOOLBARS ja avautuvasta listasta valitset CONTROL TOOLBOX. Työkaluvalikosta sitten klikkaat IMAGE kontrollia ja hiirellä maalaat sopivan kokoisen alueen.taulukossa. Voit myöhemmin muutella paikkaa ja kokoa. Klikkaa hiiren oikealla ja avautuvasta menusta valitse PROPERTIES. Ominaisuuksista valitse Picture ja klikkaa oikealla olevia 3 pistettä ja avautuvasta valikosta selaat sitten logolle oikean polun. Samaisella lomakkeella voit säädellä kuvan paikan tarkasti ja korkeuden ja leveyden yms.

    • Jumppari-Linda

      No niin, nyt kaiken pitäisi olla kunnossa, mutta ei logo jostain syystä vaihdu...

      Eli Ohjausobjekteista valittu kuva, otettu ominaisuuksista varjostus pois jne, mutta ei kuva muutu vaikka sen sinne lähtökansioon muuttaa :(

      Ideoita?

      • kunde

        koodin pätkä moduuliin... ja tallennat. Kun seuraavan kerran avaat Excelin niin kuvat päivittyvät...

        Sub Auto_Open()
        Dim kuva As Object
        Dim i As Long

        For i = 1 To Sheets.Count
        For Each obj In Worksheets(i).OLEObjects
        If obj.OLEType = 2 Then
        Set kuva = obj
        kuva.Object.Picture = LoadPicture("C:\kuvat\logot\logo1.jpg ")
        End If
        Next
        Next
        End Sub

      • Jumppari-Linda
        kunde kirjoitti:

        koodin pätkä moduuliin... ja tallennat. Kun seuraavan kerran avaat Excelin niin kuvat päivittyvät...

        Sub Auto_Open()
        Dim kuva As Object
        Dim i As Long

        For i = 1 To Sheets.Count
        For Each obj In Worksheets(i).OLEObjects
        If obj.OLEType = 2 Then
        Set kuva = obj
        kuva.Object.Picture = LoadPicture("C:\kuvat\logot\logo1.jpg ")
        End If
        Next
        Next
        End Sub

        Hienoa! KIITOS!

        Ei ollut moduulissa...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Sanna Marin vetänyt leukoja 11 kertaa

      Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san
      Maailman menoa
      103
      6352

    2. Suomalainen tutkimus paljasti oudon asian vasemmistolaisista - he häpeävät itseään

      Kyllä, asia on faktaa. Suomalainen tutkimus osoittaa, että vasemmistolaisina itseään pitävät kansalaiset häpeävät itseää
      Maailman menoa
      118
      2977

    3. Sosialismia Tampereella: Virallinen ilmiantolinja avautuu kaupungissa

      Nyt siis mennään mansessa ihan justiinsa samaan malliin kuin entisessä Neuvostoliitossa, jossa saattoi ilmiantaa naapuri
      Maailman menoa
      282
      2748

    4. Kirjoita

      … jotakin minkä vain kaivattusi tietää
      Ikävä
      147
      2693

    5. Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?

      Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo
      Tv-sarjat
      37
      2358

    6. Tyhmä persuväite = köyhä argumentti

      Väite, että vasemmistopuolueita äänestäisivät vain “köyhät, tapatyöttömät tai heikoilla lahjoilla varustetut”, kertoo en
      Maailman menoa
      71
      2306

    7. Tiesitkö? Andy McCoy ja Pelle Miljoona saavat taiteilijaeläkettä - Tämän suuruinen eläke on

      Ylimääräiset taiteilijaeläkkeet on jaettu ja 59 taiteilijaa sai sen. Taiteilijoiden keskimääräinen eläketulo jää hyvin a
      Maailman menoa
      76
      1760

    8. Tätä et nähnyt tv:ssä: Frederik paljastaa - Totuus "haisevasta jäynästä" pehtoorille Farmilla

      Frederik veti ns. herneen nenään ja päätti kostaa pehtoorille. Mitäs mieltä olet Frederikin "aamutoimista"? Lue jutt
      Tv-sarjat
      8
      1705

    9. Haluan sut

      Voitaisiinko tutustua paremmin toisiimme? Ovi on aina auki sinulle. Lähelle.
      Ikävä
      53
      1613

    10. Ellen Jokikunnas paljastaa kyynelehtien Ralph-pojasta: "Apua..."

      Ellen Jokikunnaksen ja hänen puolisonsa Jari Raskin perheestä ja taloprojektista Italiassa kertova Unelmia Italiassa -sa
      Suomalaiset julkkikset
      4
      1465
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt