Office: Bild aus Internet einfügen

Hallo!
Habe ein Problem. Ich möchte die aktuelle Wetterkarte, also den Wetterbericht als Bild von egal welcher Webseite (also z.B. wetter.de) mit VBA in ein Excel-Tabellenblatt einfügen. Als Text bekomme ich das mit Daten->Externe Daten importieren -> Neue Webanfrage auch hin. Aber eben nur als Text. Brauche das Bild...
Ich hoffe Ihr könnt mir helfen. DANKE schonmal!

:)

 

Image.Picture = LoadPicture("http://www.unwetterzentrale.de/images/map/index0000059241.png") probiert. Funktioniert aber nicht. Es kommt ein Fehler "Laufzeitfehler75, Fehler beim Zugriff auf Datei".

Es geht nur für den Pfad "C:\unbekannt.png".
Kann mir jetzt vielleicht jemand helfen?

 

Hallo bezauberndejeany,

probier's hiermit:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Sub bildimport()
Dim lokal As String, adresse As String, geladen As Boolean
Dim IEApp As Object
Dim IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "Unwetterzentrale Deutschland - Alle Warnungen"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
Do: Loop Until IEDoc.ReadyState = "complete"
For i = 0 To IEDoc.images.Length - 1
If IEDoc.images(i).alt = "Karte" Then
adresse = IEDoc.images(i).src
End If
Next
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
lokal = "E:\temp.png" 'anpassen
geladen = DownloadFile(adresse, lokal) 'png Datei herunterladen
If geladen = True Then
'Bild löschen
For Each bilder In Tabelle1.Pictures
If bilder.Name = "meinBild" Then bilder.Delete
Next
'Bild einfügen
Set bild = Tabelle1.Pictures.Insert(lokal)
bild.Name = "meinBild"
'temporäre Datei löschen
Kill lokal
Else
'wenn Download nicht erfolgreich , dann Meldung
MsgBox "Datei " & adresse & " konnte nicht heruntergeladen werden!"
End If
End Sub


mfg Anton