Mit folgendem code lade ich mir ein Bild auf ein Arbeitsblatt.
Wenn ich nun dieses Arbeitsblatt verlasse, soll das Bild veraschwinden.
Irgendwie kriege ich das nicht hin. Wäre toll, wenn mir jemand helfen kann.
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim pic As Picture
If IsEmpty(Target) Then Exit Sub
Cancel = True
If Dir(Target.Value) = "" Then
Beep
MsgBox "Grafikdatei wurde nicht gefunden!"
Else
Range("N1").Select
Set pic = ActiveSheet.Pictures.Insert(Target.Value)
With pic
.Left = Target.Offset(0, 2).Left
.Top = Target.Offset(0, 1).Top
End With
End Sub
Vielen dank schon mal im Voraus. Gruß Andreas