habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click()
CommandButton1.Caption = "Bild"
[A300].Activate
Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif")
End Sub
Sub CommandButton2_Click()
ActiveSheet.Shapes("Picture 1").Delete
End Sub
Soweit so gut, nur wenn ich den Commandbutton 1 ein zweitesmal drücke nachdem ich das Bild wieder geschlossen habe, haut der Code leider nicht mehr hin. Was mache ich falsch ?
Lieben Gruss
Stefan