Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder aus dem Web in Excel2007 anzeigen

Bilder aus dem Web in Excel2007 anzeigen
13.03.2009 18:43:51
Thomas
Hallo Experten,
seit Stunden habe ich jetzt recherchiert und probiert, aber noch keine Lösung gefunden.
In Excel 2000 und 2003 konnte ich per VBA Bilder aus dem Internet direkt als Bild in einer Excel-Tabelle anzeigen lassen und so einen Katalog erzeugen:
Set image = ActiveSheet.Pictures.Insert("http://www.vbh24.de/vbhpictures/PIC/PIC3549140101.jpg")
Das gute Excel 2007 macht hier aber leider gar nichts.
Ich habe es jetzt schon versucht mit:
A. sURL = "http://www.vbh24.de/vbhpictures/THU"
sLocalFile = sURL & "/THU" & Datei & ".jpg"
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
(inkl. Private Declare Function URLDownloadToFile Lib "urlmon" _ ... usw)
B. Set THU = LoadPicture(sLocalFile).Select
C. ActiveSheet.Pictures.Insert(sLocalFile).Select
D. ActiveSheet.Shapes.AddPicture(sLocalFile, False, True, ActiveCell.Left, ActiveCell.Top, 100, 100)
E. und alles mit Add und OLEObject
Nichts aber auch auch gar nichts funktioniert.
Hat jemand einen Lösungsvorschlag oder evtl. eine andere Idee, wie ich die Bilder in die Excel-Tabelle bekomme?
Vielen Dank im voraus!
Thomas

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder aus dem Web in Excel2007 anzeigen
14.03.2009 15:24:21
Josef
Hallo Thomas,
das geht z.B. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

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

Sub LoadImage()
  Dim strUrl As String, strLocal As String
  Dim pImage As Picture, lngRes As Long
  
  strUrl = "http://www.vbh24.de/vbhpictures/PIC/PIC3549140101.jpg"
  
  strLocal = Environ("TEMP") & "\tmp." & Right(strUrl, 3)
  
  lngRes = URLDownloadToFile(0, strUrl, strLocal, 0, 0)
  
  If lngRes = 0 Then
    Set pImage = ActiveSheet.Pictures.Insert(strLocal)
    
    '...
    
    
    
    Kill strLocal
  End If
  
  Set image = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Bilder aus dem Web in Excel2007 anzeigen
15.03.2009 15:09:21
Thomas
Hallo Sepp,
Vielen Dank für die Lösung... passt perfekt!
Danke!!!
zu
15.03.2009 15:11:37
Josef
Gruß Sepp

AW: Bilder aus dem Web in Excel2007 anzeigen
15.03.2009 11:04:21
Tino
Hallo,
habe hier mal ein Beispiel mit dem Webbrowsersteuerelement aufgebaut.
Bei mir funktioniert es, geht es bei Dir auch.
https://www.herber.de/bbs/user/60323.xls
Gruß Tino
AW: Bilder aus dem Web in Excel2007 anzeigen
15.03.2009 13:26:00
Tino
Hallo,
habe den Code noch etwas optimiert, damit sich das Element in etwa an das Bild anpasst und
noch ein bar kleine Änderungen.
Einfach den Code im Modul durch diesen ersetzen.
Sub LoadBild(strURL As String)
Dim objWeb As WebBrowser
Dim sgHeight As Single, sgWidth As Single

Set objWeb = Tabelle1.WebBrowser1

objWeb.Navigate "about:blank" 'leere Seite 

While Not objWeb.ReadyState = 4 'Warte auf Webseite 
  DoEvents
Wend

    objWeb.Document.body.InnerHtml = "<img src=" & strURL & " Name=""MeinBild"" alt=""Fehler beim Laden"" title=""Bild"">"
    objWeb.Document.body.Scroll = "no" 'Scrollbalken aus 
  
While Not objWeb.ReadyState = 4 'Warte auf Webseite 
  DoEvents
Wend

Application.Wait Now + TimeSerial(0, 0, 1)

sgWidth = objWeb.Document.MeinBild.Width
sgHeight = objWeb.Document.MeinBild.Height


objWeb.Width = sgWidth + 25
objWeb.Height = sgHeight + 35

End Sub


Gruß Tino

Anzeige
AW: Bilder aus dem Web in Excel2007 anzeigen
15.03.2009 15:12:52
Thomas
Hallo Tino,
Vielen Dank für deine schnelle Antworten. Leider konnte mein Excel 2007 nichts mit
Dim objWeb As WebBrowser
anfangen. Daher konnte ich Deinen Code auch nicht testen.
Gegenfrage
15.03.2009 15:54:14
Tino
Hallo,
auch nicht in der hochgeladenen Datei?
Gruß Tino
AW: Gegenfrage
16.03.2009 14:06:30
Thomas
Nein sorry.. geht auch nicht.
AW: Gegenfrage
16.03.2009 14:24:12
Tino
Hallo,
ok., dann hast Du sehr wahrscheinlich den IE nicht installiert.
Bei mir funzt es an jedem Rechner, sogar auf einem Virtuellen Pc.
Gruß Tino
AW: Gegenfrage
16.03.2009 14:34:48
Thomas
Hallo Tino,
ich hab den IE6, den IE7 und Firefox installiert.
Mittlerweile wundert mich bei Windows und seinen Office-Programmen nichts mehr. Jeder Rechner macht das was er will... bestes Beispiel sind die Outlook-Signaturen. Es ist mir bislang nicht gelungen, eine einzige Vorlagensignatur für unsere Firma zu erstellen, die mit Outlook 2000, 2003, 2007 und Webaccess funktioniert. Und beim Antworten auf Emails reagiert jeder Rechner anderst, selbst wenn die gleichen Versionen installiert sind. Schriftart ändert sich, Logo verschwindet, usw...
Nichts für ungut - danke nochmals für deine schnelle Hilfe!
Gruß Thomas
Anzeige

303 Forumthreads zu ähnlichen Themen

Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
mit Hyperlink zum linken Bildrand
Deister

Hallo,
Folgendes zur aktuellen Situation:
Auf Blatt A sind +/- 1000 Namen in Kolonne A erfasst. Von den Namen (Zellen in Kolonne A) kann ich über Hyperlink die bezüglichen Zellen in Reihe 1 in den Blättern B bis E ansteuern.
In den Blättern B bis E sind die Kolonnen A bis D "freeze...
13.05.2009 12:09:02
Thread-ID: 1074779
8 Beiträge
Anzeige
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 Beiträge
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 Beiträge
Bild hinter Zellen
joerg

Hallo Zusammen,
habe ein kleines Problem.
Gibt es in XLS eine Möglichkeit ein Bild "hinter" die Zellen zu legen, sodass eine Art Raster entsteht? Als Hintergrundbild ist etwas zu unflexibel, da es 3-4 Bilder auf einer A4 - Seite sein sollen.
Abhängig von der angewählten Zelle auf...
02.11.2009 16:11:56
Thread-ID: 1113879
2 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Anzeige

Links zu Excel-Dialogen

WebBrowser

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
8
7
8
2
6
7
1
1
4
3
1
3
7
7
4
1
1
7
3
2
1
2
3