Internetbilder in Excel integrieren

[AnWa]

Schön guten Tag,

folgendes Problem habe ich:

Ich habe eine lange Liste mit Bildurl's zusammengestellt für ein Bestellformular. Damit man bei dem Bestellformular eine gute Übersicht hat, sollen neben den Artikelnummern kleine Promobilder des Produktes erscheinen.

Dieses Modul erledigt es fast perfekt:
Function InsertPicFromURL(URL As String) As String
With ActiveSheet.Pictures.Insert(URL)
.Top = Application.Caller.Top + 1
.Left = Application.Caller.Left + 1
.Height = Application.Caller.Height - 2
End With
InsertPicFromURL = ""
End Function

=InsertPicFromURL(SVERWEIS(A1;tabellenblatt2...)

So sieht das Endergebnis dann aus:
   

Das Problem was ich aber habe ist, dass Excel die Bilder scheinbar nur verknüpft. Er lädt sie immer wieder aus dem Internet. Aber er zeigt es nicht als Verknüpfung an.


Frage: Kann ich das Modul so verändern, dass er mir die Bilder herunterlädt? Kann ich anders die Bilder in Excel einbetten.

[AnWa]

Hat keine eine Idee wie ich die Formel umschreiben kann oder habe ich mich zu kompliziert ausgedrückt?

[snb]

ein UDF ist dazu nicht geeignet.
Verwende 'normales' VBA

Code:

sub M_snb()
   sn= sheets(1).cells(1).currentregion
   sheets(1).shapes.selectall
   selection.delete

   for j=2 to ubound(sn)
      sheets(1).shapes.addpicture "httl://www.    " & sn(j,1),sheets(1).columns(2).left,sheets(1).rows(j).top,sheets(1).rows(j).height-2
   next
End Sub

[AnWa]

Danke für die Antwort

Nur kann ich dadurch kein SVERWEIS verwenden oder? Wie stelle ich bei der Berechnung sicher, dass zu der jeweiligen Artikelnummer das dazugehörige Bild aus dem Link heruntergeladen wird?

[snb]

Analysiere die Code.