Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bilder in Videoliste eintragen und löschen

Gruppe

Grafikimport

Problem

Wie kann ich in eine Tabelle mit einer Aufstellung von Video-Filmen Bilder einfügen und löschen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Grafikimport