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

434

    Vastaukset

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

    • 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?


      • 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?

      • 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ä.

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      271
      4979
    2. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      46
      3519
    3. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      89
      3474
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      50
      2649
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      46
      1833
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      97
      1630
    7. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      16
      1463
    8. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      97
      1448
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      71
      1045
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      144
      1035
    Aihe