Office: Bild aus Internet einfügen

Helfe beim Thema Bild aus Internet einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von bezauberndejeany, 25. Oktober 2009.

  1. 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!

    :)
     
    bezauberndejeany, 25. Oktober 2009
    #1
  2. bezauberndejeany, 26. Oktober 2009
    #2
  3. 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
     
    _anton_, 28. Oktober 2009
    #3
Thema:

Bild aus Internet einfügen

Die Seite wird geladen...
  1. Bild aus Internet einfügen - Similar Threads - Bild Internet einfügen

  2. Bild als Seitenhintergrund anlegen beim pdf schreiben wird der Hintergrund gekachelt

    in Microsoft Word Hilfe
    Bild als Seitenhintergrund anlegen beim pdf schreiben wird der Hintergrund gekachelt: Hallo zusammen, ich habe ein A4 Bild als Seitenhintergrund eingefügt um es für den Druck ein- und ausblenden zu können > Druckmenü > Druckoption > Hintergrundfarbe und -bilder drucken auswählen,...
  3. Bild neben Text im Rahmen

    in Microsoft Word Hilfe
    Bild neben Text im Rahmen: Hallo. Ich habe leider ein Problem und hoffe, dass mir jemand helfen kann. Ich habe einen längeren Text in einen Rahmen eingefasst. Nach einem neuen Absatz habe ich ein Bild eingefügt und neben...
  4. Bild links in der Zelle einfügen

    in Microsoft Word Hilfe
    Bild links in der Zelle einfügen: Hallo Zusammen, mit folgenden Code füge ich ein Bild in der Zelle der Word-Tabelle ein, in dem der Cusor steht. Bisher wurde das Bild immer linksbündig eingefügt, aus irgendeinem Grund wir das...
  5. Bild verschiebt sich als Hintergrundbild trotz Fixierung

    in Microsoft Word Hilfe
    Bild verschiebt sich als Hintergrundbild trotz Fixierung: Hallo, ich hoffe es kann mir jemand von euch helfen. Ich möchte eine neue Verordnung einer Krankenbeförderung für uns verbessern. Das Bild habe ich als Grundlage meiner Daten als Hintergrund...
  6. Signatur mit Bild

    in Microsoft Outlook Hilfe
    Signatur mit Bild: Hallo, es geht um Office 365. Betriebsrechner. Ich habe in meiner Signatur ein Bild ergänzt- Mache ich eine neue Mail und füge die Signatur ein ist das Bild vorhanden. Klicke ich auf eine Mail...
  7. Automatisches Herunterladen von Bildern aus dem Internet in Outlook für Mac

    in Microsoft Outlook Tutorials
    Automatisches Herunterladen von Bildern aus dem Internet in Outlook für Mac: Automatisches Herunterladen von Bildern aus dem Internet in Outlook für Mac Outlook für Microsoft 365 für Mac Office Business Microsoft 365 Admin Outlook 2016 für Mac...
  8. Import von Bild aus Internet (Drag & Drop), Bilddarstell

    in Microsoft PowerPoint Hilfe
    Import von Bild aus Internet (Drag & Drop), Bilddarstell: Hallo zusammen Gewöhnlich ist es möglich, Bilder aus dem Internet via Drag & Drop in eine Präsentation zu importieren. Nun wird aber bei mir nur der Link in einem Textfeld dargestellt und nicht...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden