Mit dem 1. Click --> Bild (Datei) wird eingefügt -> funktioniert.
Mit dem 2. Click soll Bild wieder verschwinden -> funktioniert nicht ;-( .
Dim BILD As Object
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Bild aus"
[D14].Activate
Set BILD = ActiveSheet.Pictures.Insert("G:\IVO\wcml.gif")
End If
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Bild ein"
ActiveSheet.Shapes.("...")Delete ' ----> Hier Fehler !!!
End If
End Sub
In der (mit Pfeil) gekennzeichneten Zeile spuckt mir Vb immer einen Feher aus.
Was gehört in die Klammer geschrieben?
Danke
Max