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
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
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.