Skifte billede efter værdi

Det kan du godt.
V.h.a. "Worksheet_Change" hændelsen kan du tjekke om der sker ændringer i en bestemt celle. Du kan så indsætte forskellige billeder alt afhængig af værdien i cellen.

Jeg har et eksempel liggende, hvis du skulle være interesseret.

janvogt@esenet.dk

Det er jeg MEGET interesseret i.

Beklager jeg har været væk fra spm'et så længe, men jeg må have fået slettet ekspertens mail da du svarede...

Har du en mail-adresse?

jeps: tre_exp@hotmail.com

Hvordan gik det her?

Jeg må desværre indrømme at jeg ikke har fået set på det endnu. Jeg regner med at få lidt tid til det i næste uge...

Så skal jeg nok melde tilbage.


Foreløbig tak

Jeg har lige tjekket min mail og jeg har desværre ikke fået en fra dig endnu.

Kan jeg få dig til at prøve at sende den igen??

Eksempel sendt .....

Så er det prøvet af og det virker jo bare fint.

Jeg har dog et lille tillæg. Jeg vil jo gerne kunne bestemme i hvilken celle billedet skal placere sig. Kan man det?

Jeg har prøvet noget stil med:

Range("A3").Pictures.Delete
Range("A3").Pictures.Insert("D:\billede.jpg").Select


Men det virker bare ikke helt efter hensigten. Har du et forslag til hvad jeg kunne prøve??

Du kan bruge:
ActiveSheet.Pictures.Delete
Range("A3").Select
ActiveSheet.Pictures.Insert("D:\billede.jpg").Select

Fedt nok.

Tusind tak for hjælpen.

i mellemtiden var jeg kommer frem med en løsning hvor jeg havde sat billederne ind i et andet ark og brugte en copy kommando lidt som den her :-)



    ActiveSheet.Pictures.Delete
    Worksheets("Billed_ark").Range("A2").Copy
    ActiveSheet.Paste Destination:=Worksheets("Ark1").Range("D6")

Tusind tak for hjælpen. Så er jeg kørende!

Velbekomme :-)