habe mal wieder ein Problem! Und zwar möchte ich Grafiken in ein definiertes Feld "A17" eintragen!
Die Auswahl geschieht durch ein ComboBox!
Mein Problem jetzt hierbei ist, dass meine Grafiken nur überdeckt werden.
Ich hätte jetzt gerne eine Programmierung, welche die eine Grafik vor einfügen der nächsten löscht!
Kennt sich da jemand vielleich aus?
Mein Makro bis jetzt:
Private Sub ComboBox1_Change()
Sheets("Protokoll").Activate
ActiveSheet.Image.Visible = True
ComboBox1.Clear
ComboBox1.Clear
ComboBox1.AddItem Format("Erde1")
If ComboBox1 = "Erde1" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("I:\ae\AE-EF\AE-EFO\Mitarbeiter\Adel\Prüfprotokolle\TEST\earth.gif").Select
End If
ComboBox1.AddItem Format("Erde2")
If ComboBox1 = "Erde2" Then
Range("A17").Select
ActiveSheet.Pictures.Insert("I:\ae\AE-EF\AE-EFO\Mitarbeiter\Adel\Prüfprotokolle\TEST\earth2.gif").Select
End If
End Sub
Vielen Dank für Eure Hilfe!
Gruss Chris