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!
Kuvan liittäminen linkkinä ongelmana - APUA!
Jumppari-Linda
8
437
Vastaukset
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 SubHienoa! KIITOS!
Ei ollut moduulissa...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu832032Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä
Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu3941811- 591808
Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.1691475Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle681354Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1101350Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä751317- 671253
Kuljettajasi oy konkurssi?!
Tuliko ahnehdittua liikaa,menikö tämä kuljettajasi oy taksit siis konkurssiin?141123KIIKKUSTUOLI
Aloitetaan taas uudella alustalla, nuo pitkiksi venyneet ovat hankalia etsiä uusia viestejä, joskus vastauksia tulee sin1011107