VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Grafik nach Eingabe des Dateinamens einfügen

Gruppe

Ereignis

Bereich

Change

Thema

Grafik nach Eingabe des Dateinamens einfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change