Lopslag billede vha. VBA?

Ja - det er muligt.

og så velkommen til Eksperten..

jamen fornemt!

- mange tak! Det er jo bestemt ikke noget dumt sted!

Måske kan dette link være til hjælp:
http://www.eksperten.dk/spm/968103#reply_7977038

Hej Jarlen91

Jeg har lavet noget der måske ligner det du eftersøger.

Med hjælp fra Eksperten, har jeg lavet en fil der kan hente billede og div. oplysninger på et varenr. hentet fra dropdown menu.

Se lille video af mit resultat på nedenstående link

http://gupl.dk/697562/

Boro23, det er lige præcis hvad jeg leder efter.
Det behøves dog ikke hentes fra en dropdown menu, men jeg er lidt lost i forhold til VBA.

Nogen forslag til hvordan jeg får lavet noget lignende?

Det kan konstrueres på flere måder.
- er der f.eks. et regneark med alle varenr. samt beskrivelse
- billederne kan ligge i en mappe og være navngivet med varenr.

- Er det så i et andet regneark du skal indtaste varenr. og så hentes billede samt beskrivelse

- Hvis du anvender en Userform (programmeret dialogboks) - så kan alle varenr. automatisk indsættes i en liste/komboboks og ved at klikke på et varenr. vises data i Userform.

og flere måder..

Ok, lyder godt.

Altså jeg har en mappe med billeder som er navngivet pr. varenummer.

Så har jeg et regneark med varenummer og beskrivelse

- Mit problem er at få et bestemt billede fra mappen frem i et excel ark ved blot at taste varenummeret.

Hej Jarlen91

Har oploadet en manual, som jeg brugte i 2007. Måske det kan give dig et skub fremad.

http://gupl.dk/699891/

Jarlen91 - hvis du sender en mail - så returnere jeg en model.
@-adresse under min profil.

I fremsendte model:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address > "$A$1" And Target.Address <= "$A$5" Then        'intervallet for varenr.
        varenr = Target.Value
        visBillede varenr
    Else
        Image1.Picture = Nothing
    End If
End Sub
Public Sub visBillede(varenr)
    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "/Billeder/" & CStr(varenr) & ".jpg")
End Sub