Grafik wechselnd anzeigen
Herbert
Ich lasse mir in Abhängigkeit einer Gültigkeitsliste verschiedene Grafiken anzeigen. Problem: Wie kann ich kann die Grafik, die eingefügt worden ist löschen, bevor ich die nächste einfüge, also sozusagen wechselnd anzeigen. Mit dem Code werden die Grafiken überlagert. Ich habe bisher nichts gefunden, um die Bilder anzusprechen, um sie zu löschen. Die eingfügte Grafik heißt in der Tabelle nicht mehr Test1.gif sndern Bild21, Bild22, usw. je nachdem wieoft das Makro ausgeführt wurde.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 7 Then
Select Case Target
Case Cells(1, 11): Range("A1").Select
ActiveSheet.Pictures.Insert ("D:\Test1.gif")
Case Cells(2, 11): Range("A1").Select
ActiveSheet.Pictures.Insert ("D:\Test2.gif")
Case Cells(3, 11): Range("A1").Select
ActiveSheet.Pictures.Insert ("D:\Test3.gif")
End Select
End If
End Sub
Danke für Eure Hilfe
Herbert