Link vervangen door een plaatje

[DJ.Funny]

Hallo allemaal,

Vraag lijkt makkelijk, maar is toch lastiger dan ik dacht!!

Wat is er aan de hand. Middels ODBC haal ik gegevens uit een database 1 van die gegevens is een link welke verwijst naar een afbeelding.

Wat wil ik nu in kolom A staan nu allemaal pad-verwijzingen. Deze mioeten vervangen worden door de betreffende afbeeldingen.

Dus:

c:\afbeeldingen\bloem.jpg wordt het plaatje bloem.jpg enz enz.


Kom er met google en zoeken hier op het forum niet meer uit, vandaar deze vraag

Alvast bedankt!!

 

[wampier]

Moet het plaatje ook in die cel passen? In principe kun je de lijst met afbeeldingen langslopen en ze gewoon 1 voor 1 inladen in je bestand. Grote plaatjes die elkaar overlappen gaan dan wel een warboel vormen als je de informatie niet aanpast.

Dus:

- moeten de plaatjes geladen worden als "link" of echt in excel worden toegevoegd?
- moet de regel in excel worden aangepast naar de grootte van plaatje? of het plaatje aangepast naar de grootte van de regel?

 

[DJ.Funny]

Plaatjes moeten in excel worden toegevoegd en plaatje moet aangepast worden naar grootte regel! Plaatje hoeft geen link te zijn.

Bedankt voor je reactie!

 

[wampier]

nog kleine aanvullende vraagjes:

moet de verhouding bewaard blijven? of precies een cel bedekken?
Staan de filenamen in kolom A? beginnend bij A1?

 

[DJ.Funny]

Beste wampier,



moet de verhouding bewaard blijven? Ja of precies een cel bedekken? Neen
Staan de filenamen in kolom A? beginnend bij A1? Inderdaad

Ben benieuwd ben ook nog aan het googelen, maar kom er niet echt uit

 

[wampier]

Sub plaatjes()

For Each cell In Range("a1", Range("a65000").End(xlUp))
    where = cell.Value
    Set pic = ActiveSheet.Pictures.Insert(where)
    
    breedte = (cell.Height / pic.Height) * pic.Width
    pic.Height = cell.Height
    pic.Width = breedte
    pic.Top = cell.Top
    pic.Left = cell.Left
    
Next cell

End Sub