bild in excel-zelle einfügen

08/05/2008 - 12:06 von Martin Gross | Report spam
hi,

wir haben eine tabelle

A B C D
artikelnummer - textkurz - beschreibung
001.222.333 kurztext text


nun soll in die letzte spalte, D, ein bild zu jeder artikelnummer eingefügt werden,
das bild ist ca. 240 x 120 pixel groß und heist wie die artikelnummer
(hier 001.222.333.jpg)
die bilder liegen in c:\eigene dateien\bilder\

gibt es eine möglichkeit dieses bild automatisch in die zelle einzufügen ?
es sind ca. 2000 bilder.

danke

martin
 

Lesen sie die antworten

#1 Thomas Kühn
08/05/2008 - 12:46 | Warnen spam
(hier 001.222.333.jpg)
die bilder liegen in c:\eigene dateien\bilder\

gibt es eine möglichkeit dieses bild automatisch in die zelle einzufügen ?
es sind ca. 2000 bilder.



Ja per VBA:

Zelle Selektieren:
For i = 2 to maxAnzahlBilder
Range("D" & i).Select
sBild = "c:\Eigene Dateien\bilder\" & cells(i, 1) & _
"jpg"
ActiveSheet.Pictures.Insert(sBild).Select
Next i

Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen