AW: Grafik in Abhängigkeit einer Zelleingabe einfügen
Anton
Hallo,
unabhängig, ob dein Vorhaben Sinn macht und nur, um die prinzipelle Möglichkeit zu erleutern folgenden Code in das Klassenmodul des Tbellenblatts kopieren:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Rows(2)) Is Nothing And Not IsEmpty(Target) Then 'Änderung erfolgte in Zeile 2
With Target.Offset(3, 0) 'hier soll das Bild positioniert werden
Me.Shapes.AddPicture(Filename:=ThisWorkbook.Path & Application.PathSeparator & Target.Value, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=.Left, _
Top:=.Top, _
Width:=.Width, _
Height:=.Height).Name = Target.Offset(-1, 0).Value
End With
End If
End Sub
Bei Eingabe des Dateinamens in der Zeile wird ein Bild eingefügt und auf die Größe der Zelle in Zeile 5 angepaßt. Achtung, die Funktion fängt derzeit keine Fehler ab. So erwartet sie z. B. dass in Zeile 1 der Name des neuen Bildes seht bevor in Zeile 2 der Dateiname eingegeben wird.
Ich befürchte aber mit VBA wirst du dich ein wenig auseinandersetzen müssen, denn für den Praxiseinsatz müssen noch einige Absicherungen eingebaut werden.
Gruß Anton