Billede visning / opslag

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

Der står også lidt her:

http://www.eksperten.dk/spm/265887

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

Metoden addpicture giver mulighed for at justere placering og størrelse på dit billede via tallene 100, 100, 70, 70.

Great. Jeg har fået den først af x-lars til at virke. Jeg deler gerne point ud. Tak for hjælpen.

Jamen, så får du da et svar! Godt, at det virkede!

Tak.