Microsoft Excel

Herbers Excel/VBA-Archiv

Grafik in Abhängigkeit einer Zelleingabe einfügen

Betrifft: Grafik in Abhängigkeit einer Zelleingabe einfügen von: Tobi
Geschrieben am: 21.08.2004 14:06:50

Hi,

ich möchte gerne eine Grafikdatei in Abhängigkeit einer Zelleingabe einfügen. Den Namen der Grafikdatei gebe ich in Zelle A2 ein. Das Bild soll dann in Zelle A5 eingefügt werden (wenn möglich an die Größe der Zelle angepaßt). Die Bilder liegen im gleichen Verzeichnis, wie die Excel Datei.

https://www.herber.de/bbs/user/9920.xls

Wie bekomme ich das hin?

Gruß
Tobi

  


Betrifft: AW: Grafik in Abhängigkeit einer Zelleingabe einfügen von: Anton
Geschrieben am: 21.08.2004 17:14:36

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


  


Betrifft: Danke von: Tobi
Geschrieben am: 23.08.2004 19:52:54

Danke Anton,

soweit klappt dass ja ganz prima!
Dann werde ich mich mal mit der Fehlerkontrolle beschäftigen.

Grüße Tobi


 

Beiträge aus den Excel-Beispielen zum Thema "Grafik in Abhängigkeit einer Zelleingabe einfügen"