Avatar billede mrfux Nybegynder
16. april 2006 - 17:14 Der er 6 kommentarer og
1 løsning

Billede visning / opslag

I MS Excel 2003 ønsker jeg at få vist et specifikt billede, på baggrund af et opslag i en manuelt oprettet liste.

Fx. vil jeg se et billede af en bil, hvis jeg fra listen vælger "Bil", mens jeg vil se et tog, hvis jeg fra listen vælger "Tog".

Jeg har ingen problemer med enten at have billederne i et andet ark eller lave opslagene på baggrund af x antal filer.
Avatar billede x-lars Novice
17. april 2006 - 12:24 #1
Denne burde kunne gøre tricket (skal ligge i This_workbook - modulet

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Range("A1") = "Fly" Then
        ActiveSheet.Pictures.Delete
        Range("A3").Select
        ActiveSheet.Pictures.Insert("D:\Flyver.jpg").Select
        Range("a1").Select: Exit Sub
End If
    If Range("A1") = "Tog" Then
        ActiveSheet.Pictures.Delete
        Range("A3").Select
        ActiveSheet.Pictures.Insert("D:\tog.jpg").Select
        Range("a1").Select: Exit Sub
End If
        ActiveSheet.Pictures.Delete
        MsgBox "Nu står der noget andet end Fly eller Tog i A28!"
End Sub
Avatar billede x-lars Novice
17. april 2006 - 12:27 #2
Der står også lidt her:

http://www.eksperten.dk/spm/265887
Avatar billede mrjh Novice
17. april 2006 - 12:56 #3
Denne opretter en datavalidering og indsætter navne på billedfiler som indtastes i kolonne A. Flnavne skal skrives fuldt ud f.eks. mitbillede.jpg
Husk at ændre arknavne


Private Sub worksheet_change(ByVal Target As Range)
ActiveSheet.Pictures.Delete
Dim b
For Each a In Sheets("Ark13").Range("a1", Sheets("Ark13").Range("a100").End(xlUp))
        If a <> "" Then
        b = b & a.Value & ","
        End If
Next
Sheets("Ark13").Range("d2").Validation.Delete
Sheets("Ark13").Range("d2").Validation.Add xlValidateList, , , b

fil = Range("d2")
sti = "C:\Mine Billeder\"  'Tilrettes
Worksheets("Ark13").Shapes.AddPicture sti & fil, True, True, 100, 100, 70, 70

End Sub
Avatar billede mrjh Novice
17. april 2006 - 13:09 #4
Metoden addpicture giver mulighed for at justere placering og størrelse på dit billede via tallene 100, 100, 70, 70.
Avatar billede mrfux Nybegynder
17. april 2006 - 17:42 #5
Great. Jeg har fået den først af x-lars til at virke. Jeg deler gerne point ud. Tak for hjælpen.
Avatar billede x-lars Novice
17. april 2006 - 18:24 #6
Jamen, så får du da et svar! Godt, at det virkede!
Avatar billede mrfux Nybegynder
18. april 2006 - 20:27 #7
Tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Cognizant Technology Solutions Denmark ApS

Test Manager

Dynamicweb Software A/S

Solution Architect

Unik System Design A/S

Udviklingschef