Office: Excel 2003: Bild statt Hyperlink anzeigen

Hallo Forumsgemeinde,

ich habe eine Frage und hoffe ihr koennt mir helfen.

Ich habe hier eine lange Excel-Produktliste mit einer Spalte mit den Hyperlinks zu den einzelnen Bildern zu den Produkten.

Ist es moeglich, die Bilder anstatt der Hyperlinks anzeigen zu lassen?

Falls das nicht moeglich ist: Habt ihr eine Idee, wie ich die Bilder der Hyperlinks am schnellsten einfuegen kann?

Vielen Dank schonmal!

:)

 

hi

wie liegen diese Hyperlinks vor,
stehen die untereinander, wenn ja wo stehen diese?
wie groß sind die Bilder, sollen diese eine bestimmte Größe haben?
reicht es dir wenn ein Kommentar mit dem Bild zu den Links erzeugt wird?

 

Hi,
die Hyperlinks liegen als Text(Link) zu dem Bild auf dem Server untereinander in Spalte B vor.
Die Bilder koennen entweder in dieser Spalte sein, oder in der Spalte A.
Normalerweise muesste ich den Link anklicken --> es oeffnet sich das Bild in Firefox --> Ich kopiere es --> fuege es in Excel ein und aendere die Groesse.

Die Bilder sind 640x311 Pixel gross.
Die Groesse der Bilder ist im Endeffekt nicht so wichtig. Normalerweise reduziere ich sie meist auf 10%, was von der Groesse her gut passt.

Das ganze sollte fuer ein Produktkatalog ausgedruckt werden, so dass das Bild links vom Text beim Drucken zu sehen ist.

Falls ich noch Informationen vergessen habe, die du benoetigst, werd ich diese gleich nachreichen.

Danke schonmal!

EDIT: Falls es dir helfen sollte, kann ich die Datei auch hier hochladen, damit du dir ein etwas besseres Bild von dem Thema machen kannst!?

 

Hi

hier ein Versuch

 

Erstmal vielen Dank fuer deine Antwort.

Wenn ich dieses Makro ausfuehren moechte, kommt folgende Fehlermeldung:
Error '52'
Name oder Nummer des Archivs inkorrekt
(frei uebersetzt, da ich mit der spanischen Version arbeite)

Folgende Zeile wird markiert:
If Dir(sPath) = "" Then

 

Hi

^^
keine Ahnung, das kommt mir spanisch vor *Smilie

lasse

If Dir(sPath) = "" Then
MsgBox "Bild wurde nicht gefunden!", vbCritical
Exit Sub
End If

komplett weg
wenn wirklich in jeder Zelle in Spalte B ein Pfad steht geht es auch ohne diesem Teil.

 

*Smilie

Ich glaube es lag daran, dass in Zeile 1 schon meine Ueberschrift habe und der erste Hyperlink in Zeile 2 vorkommt.
Ich hab jetzt mal ganz oben eine Zeile eingefuegt und die Fehlermeldung kommt nicht mehr.

Dafuer kommt aber folgende:
Error '1004'
Die Eigenschaft Insert des Typs Pictures kann nicht erzielt werden
(wieder frei uebersetzt *Smilie )

Markierte Zeile:
Set objShape = ActiveSheet.Pictures.Insert(sPath)

 

hi

der Pfad wird nicht erkannt
wie sieht dein Text in der Zelle aus
hast du dafür einmal ein Bsp.
p.s ich habe erst ab Zeile 2 abgefragt an der Überschrift kann es nicht gelegen haben.

 

Ich lad dir grad mal einen Teil der Datei hoch, damit du dir ein besseres Bild machen kannst.

 

HI

uiuiu, Bilder aus dem Netz


Code:

hmm, stürzt bei mir ab.
;(

im Einzelschritt geht es
wenn ich nicht zuviele Links nehme auch

Nur ..... das wirklich "wahre" ist der Code noch nicht

 

Ich habe jetzt deinen Code vom Anfang genommen und die IF-Klausel im Falle eines fehelnden Links rausgenommen, da alle Links vorhanden sind.

So hat es jetzt geklappt und Excel ist nicht abgestuerzt.
Ein paar Bilder muss ich von der Groesse her noch anpassen, aber sonst ist es das, was ich wollte.

Also vielen vielen Dank fuer deine Hilfe! Du hast mir sehr gut geholfen.
Echt super!!!

Muchas Gracias *Smilie

 

Hi

gern geschehen *Smilie , vielleicht hängt es bei mir auch mit dem Netz zusammen, ;( habe heute eine verdammt schlechte Leitung und auch nur Office 2007 zum Testen gehabt.

 

Frage gibt es schon eine Verbesserung für dieses Script?

Arbeite mit EXCEL 2010 un bei mir Funktioniert es nur teilweis.
bricht nach einigen Zeilen mit Fehler ab - Laufzeitfehler 1004

Josef

 

Hallo Josef,

ich habe mir jetzt nicht den gesamten Thread angesehen, aber vielleicht findest Du hier eine Lösung
Bilder einfügen in Excel

 

hmm.. noch mehr angesehen, aber alles nicht das was hier eigendlich gefunden habe.

Das ist es.

kann mir einer dieses Script erweitern? wenn zbs. kein Bild gefunden wir nicht gleich mit Fehler abbricht.

Gruß Josef