Leider habe ich keinen Ansatz in der Recherche gefunden zu meinem Problem.
Mit Klick auf eine Schaltfläche will ich eine Grafik im Sheet einfügen. Das funzt so:
sGrafik = Application.GetOpenFilename
If sGrafik = "Falsch" Then
Do While sGrafik = "Falsch"
sGrafik = Application.GetOpenFilename
Loop
End If
Range("A1").Select
ActiveSheet.Pictures.Insert(sGrafik).Select
Range("F12:I12").Select
Nun möchte ich aber, dass wenn ich (oder der User) eine falsche Grafik gewählt hat, nochmals die Schaltfläche klicken und Grafik wählen.
Nur muss zuerst die alte entfernt werden.
Es sind oder können auch andere Grafiken im Sheet vorhanden sein. Daher hat das Bild eine fortlaufende Nummer.
Wer kann mir helfen, wie ich die soeben installiert Grafik wieder löschen kann?
Vielen Dank
Gruss Thomas