Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Grafik nach Eingabe des Dateinamens einfügen

Gruppe

Change

Problem

Wie kann ich nach Eingabe eines Grafikdateinamens in Spalte A diese Grafik im Tabellenblatt einfügen lassen?

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

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim pct As Picture
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   On Error GoTo ErrorHandler
   Set pct = ActiveSheet.Pictures.Insert _
      (Range("C1").Value & "\" & _
      Target.Value & ".gif")
   With pct
      .Left = Range("B4").Left
      .Top = Range("B4").Top
   End With
   Exit Sub
ErrorHandler:
   MsgBox "Grafik ist nicht vorhanden!"
End Sub