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

460

Ää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. Sannan kirja USA:n bestseller!

      "Congratulations to Sanna Marin's HOPE IN ACTION, officially a USA TODAY bestseller!" Kertoo Scribner. Mitäs persut tä
      Maailman menoa
      42
      10586

    2. Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa

      Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on
      Yrittäjyys
      126
      10142

    3. Oikeistolainen luki Med mod att leda : en biografi

      ...ei tykänny Sanna Marinista
      Maailman menoa
      22
      7927

    4. Sture Fjäder haluaa tuensaajien nimet julki

      Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h
      Maailman menoa
      177
      6334

    5. Metsäalan rikolliset

      Jokohan alkaa vähitellen kaatua kulissit näillä ihmiskauppaa harjoittavilla firmoilla.
      Sotkamo
      32
      4933

    6. Milloin viimeksi näit kaivattusi?

      Toimisitko nyt toisin kuin siinä tilanteessa teit?
      Ikävä
      56
      4743

    7. Ruotsalaistoimittaja: "Sanna Marinin saunominen saa minut häpeämään"

      Sanna Marinin kirja saa täyslaidallisen ruotsalaislehti Expressenissä perjantaina julkaistussa kolumnissa.....voi itku..
      Maailman menoa
      117
      4076

    8. Maahanmuuttajat torjuvat marjanpoiminnan - "emme ole rottia"

      Ruotsalaisen journalistin selvitys paljasti, miksi maahanmuuttajat kieltäytyvät työstä. Taustalla vaikuttavat kulttuuris
      Maailman menoa
      125
      3429

    9. Missä vaiheessa

      Päätit luovuttaa suhteeni?
      Ikävä
      62
      3147

    10. Adonikselle

      Kuvittelitko oikeasti, että ootan sua? Kuvittelitko, että voit noin vain vetäyttä ja kun tulet takaisin, kaikki on niin
      Ikävä
      226
      3095
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt