Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bilder aus dem Web in Excel2007 anzeigen

Forumthread: 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
Anzeige

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
Anzeige
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.
Anzeige
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
;

Forumthreads zu verwandten 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
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
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
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 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
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
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:28:46
Thread-ID: 1134675
2 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:32:30
Thread-ID: 1134677
4 Beiträge
Bestimmte Zelle in der Bildschirmecke | Herbers Excel-Forum
Rainer
Hallo,
es gibt einen VBA-Befehl, mit dem z. B. die Zelle C17 den Platz in der Ecke links oben am Bildschirm einnimmt. Mir ist dieser leider entfallen.
Gruß
Rainer
06.02.2010 09:37:08
Thread-ID: 1136315
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige