Bild shape mit Klick löschen
19.12.2008 17:27:46
Peter
ich suche eine Lösung, wie ich ein Bild durch Anklicken löschen kann.
Als Bild lade ich mit mit der Anweisung
Sub Bild()
Worksheets("Tabelle1").Range("d14:f22").CopyPicture xlScreen, xlBitmap
Worksheets("test").Paste Destination:=Worksheets("test").Range("E6")
End Sub
eine Ausschnitt einer anderen Tabelle (so zu sagen als "Vorgucker").
mit einem Klick möchte ich das Bild wieder auf der Tabelle wieder löschen
etwa so
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bild As Shape
Set Bild = ActiveSheet.Shapes(1)
If Selection = Bild Then Bild.Delete
End Sub
das funktioniert aber nicht.
Kann mir jemand einen Tipp geben?
Peter