Gruppe
Grafik
Problem
Wie kann ich in eine Tabelle mit einer Aufstellung von Video-Filmen Bilder einfügen und löschen?
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pct As Picture
If Target.Column < 2 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Cancel = True
Target.Offset(0, 1).Select
If Dir(Target.Value) = "" Then
Beep
MsgBox "Grafik wurde nicht gefunden!"
Else
For Each pct In ActiveSheet.Pictures
If pct.Top = Target.Offset(0, 1).Top Then
pct.Delete
End
End If
Next pct
Set pct = ActiveSheet.Pictures.Insert(Target.Value)
End If
End Sub