Office: Bild importieren / anzeigen

Hi zusammen,

ist es generell irgendwie per VBA möglich sich ein Bild an einer bestimmten Stelle in einem Excel-Sheet anzeigen zu lassen?

Entscheidend ist hierbei, dass das Bild anhand einer Artikelnummer eingeblendet werden soll. Beispiel: In B1 steht die Artikelnummer. In C1 wird das entsprechende Bild angezeigt. Wichtig ist hierbei, dass der Wert in B1 variabel ist. Wenn ich also die Artikelnummer in B1 ändere, soll sich auch das Bild in C1 entsprechend ändern.

Liebe Grüße und vielen Dank vorab.

:)

 

Hi,

ja, das ist möglich. Wo befinden sich die Bilder - auf der Festplatte oder in der Arbeitsmappe?

 

Hi Beverly, die befinden sich lediglich auf der Festplatte, bzw. in einem Netzwerkordner.

Danke dir für deine schnelle Antwort.

 

Hi,

hast du den Prozess des Einfügens eines Bildes schon mal mit dem Makrorekorder aufgezeichnet? Den Code könnte man dann entsprechend so ändern, dass das einzufügende Bild variabel ist.

Du müsstest auch irgendwie vorgeben, welches Bild aus dem Ordner angezeigt werden soll - also einen Zusammenhang zwischen zufügendem Bild und Artikelnummer, am besten z.B. die Bilder genau so benennen wie die Artikelnummer im Tabellenblatt.

 

Hi Karin,

das ist der Code:

Range("D15:H26").Select
ActiveSheet.Pictures.Insert("S:ProduktBilderBild 111.0007.jpg").Select

Wie kann ich denn hier jetzt definieren, dass er mir die Artikelnummer (111.0007) aus der Zelle L12 nehmen soll? zusätzlich muss dann ja noch das ".jpg" dran gesetzt werden. Und wie macht man das ganze variabel, ohne erst das Makro ausführen zu müssen? Liebe Grüße

 

Hi,

Code:

Was meinst du mit "...variabel, ohne das Makro erst ausführen zu müssen..."?

 

Du bist mir zuvor gekommen habe gerade meine Antwort noch mal geändert.

 

Also ich habe nun deinen Code ins entsprechende Tabellenblatt kopiert.

Ich habe ihn so eins zu eins übernommen. Was muss ich nun tun? Also Wie löse ich das ganze aus, sodass das bild eingefügt wird?

Meine Wunschvorstellung ist die, dass ich sobald ich den Eintrag in L12 ändere, mir das Makro das entsprechende Bild auch abändert.

 

Wie wird der Inhalt der Zelle L12 geändert - per Formel oder direkte Eingabe?

 

hi beverly, sry für die späte antwort.

Jetzt bin ich wieder da. ist mir eigentlich egal. in dem fall ist es aber so, dass hier der Inhalt per direkte Eingabe verändert wird.

Liebe Grüße

 

Hi,

wenn es eine direkte Eingabe ist, dann benutze das Change-Ereignis für die Zelle L12 - nach diesem Prinzip:

Code:

Anstelle Range("L12").Value kannst du dann auch Target.Value verwenden.

 

Hi Karin,


folgender Code ist nun bei mir rausgekommen:




Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address(False, False) = "L12" Then
If Target "" Then


Dim strPfad As String
Dim strBild As String
Dim picBild As Picture
' Bilder-Verzeichnis
strPfad = "S:/Produktbilder/Bild 1/"
' Bildname aus Pfad und Inhalt Zelle L12
strBild = strPfad & Range("L12").Value & ".jpg"
Set picBild = ActiveSheet.Pictures.Insert(strBild)
' Bild positionieren
picBild.Top = Range("D15").Top
' Bildhöhe
picBild.Height = Range("D15*biggrin.gif*20").Height


End If
End If
End Sub

Leider kommt noch folgender Fehler: Laufzeitfehler 1004: Die Insert-Eigenschaft des Pictures kann nicht zugeordnet werden.

 

Hi Karin, habe meinen Fehler entdeckt.

Anstatt / muss ich beim Pfad natürlich den Backslash einfügen. Mein Fehler, sry.

Nun fügt er mir das Bild ein, allderdings an der Falschen stelle. Eigentlich soll das Bild in D15:'D20 eingesetzt werden und dementsprechen skalliert werden.

Leider fügt er mir es allerdings recht klein bei K:15 ein.

Und noch eins: Bei Änderung von L12, fügt er mir ja ein neues Bild ein, das klappt, nur eben noch nicht an der richtigen Stelle. Ist es möglich, dass bei Änderung von L12 auch gleichzeitig das vorherige Bild wieder löscht? Ansonsten stapeln sich die Bilder.

 

Hi,

versuche es mal so:

Code:

 

Hi Karin, vielen lieben Dank für deine Geduld,

leider klappt das auch nicht.

Folgender Fehlerbereich:


If Target "" Then
For Each picBild In ActiveSheet.Pictures.Count
If picBild.Name = "MeinBild" Then
picBild.Delete
Exit For


Laufzeitfehler 424: Objekt erforderlich.