Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Internetbild in Zelle anzeigen

Internetbild in Zelle anzeigen
21.05.2009 15:50:09
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 Thread nicht angezeigt wird)
Es wird mir in der Zelle aber der Hyperlinktext angezeigt - und nicht das goooogle-logo
Hat jemand einen Tip ?
Freu mich auf eine Antwort
Stef@n

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Internetbild in Zelle anzeigen
21.05.2009 16:07:03
Josef
Hallo Stefan,
füge in deine Tabelle ein Webbrowser-Steuerelement und einen Commandbutton ein.
Die Adresse der grafik steht in A1.
Folgenden Code in das Klassenmodul der Tabelle kopieren.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
  WebBrowser1.Navigate Range("A1").Text
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
  With WebBrowser1
    .Width = .Document.images(0).Width
    .Height = .Document.images(0).Height
    .Document.images(0).Style.Border = "none"
    .Document.body.Scroll = "no"
    .Document.body.Style.Border = "none"
  End With
End Sub

Gruß Sepp

Anzeige
AW: Internetbild in Zelle anzeigen
21.05.2009 16:14:33
stef@n
Hey Sepp
dank Dir für die schnelle Antwort ! So funktioniert es :)
Geht das auch ohne Command-Button ?
Also: nur erfassen der Links in die jeweiligen Zellen?
Ich habe nämlich eine "laaaaange" Liste mit Bilder-Links über 2000 :O
Gruss Stef@n
AW: Internetbild in Zelle anzeigen
21.05.2009 16:16:55
Josef
Hallo Stefan,
willst du alle 2000 Bilder gleichzeitig ansehen?
Wenn nein, wodurch soll der Bildwechsel ausgelöst werden?
Gruß Sepp

AW: Internetbild in Zelle anzeigen
21.05.2009 16:21:31
stef@n
Hey Sepp
jupp - würde die Bilder gerne alle im Sheet gleichzeitig sehen.
Falls die Datei zu gross wird - würde ich mehrere Dateien erzeugen.
Der Bildwechsel wäre nur erforderlich, wenn man die Datei neu öffnet.
Gruss Stef@n
Anzeige
AW: Internetbild in Zelle anzeigen
21.05.2009 16:53:10
Josef
Hallo Stefan,
also 2000 Webbrowser würde ich nicht verwenden. Ein Webbrowser und den Folgenden Code ins Tabellenmodul. Die Bilder-URL's stehen in Spalte A ab Zeile 2.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub Worksheet_Activate()
  Dim strBody As String
  Dim rng As Range
  
  strBody = "<div style='background:dimgray;margin:-15px;padding:15px;'>"
  
  For Each rng In Me.Range("A2:A" & Me.Cells(Rows.Count, 1).End(xlUp).Row)
    If rng.Text <> "" Then
      strBody = strBody & "<p style='background:snow;border:solid 1px darkblue;padding:5px;'>" & _
        rng.Address(0, 0) & "&nbsp;<img src='" & rng.Text & "'></p>"
    End If
  Next
  
  strBody = strBody & "</div>"
  
  With WebBrowser1
    .Navigate2 "about:blank"
    Do
      DoEvents
      Sleep 10
    Loop While .ReadyState <> READYSTATE_COMPLETE
    .Document.body.innerHTML = strBody
  End With
End Sub

Gruß Sepp

Anzeige
genialer Ansatz
21.05.2009 18:52:31
stef@n
brilliant - ist zwar nicht das was ich unsprünglich wollte
ist dafür aber viel besser !
Dank Dir sehr :))))))
Stef@n
Bild per WebBrowser-Steuerelement anzeigen
21.05.2009 16:24:43
NoNet
Hallo Stefan,
Du könntest die Grafik per Webbrowser-Steuerelement anzeigen.
Blende die Symbolleiste "Steuerelement-Toolbox"ein, klicke dort auf "Weitere Steuerelemente" und wähle "Microsoft Web Browser" aus. Zeichne dann mit gedrückter Maus einen Rahmen für das Steuerelement im Tabellenblatt.
Mit folgendem Code (in das Klassenmodul "DieseArbeitsmappe" im VBA-Editor) kannst Du das Steuerelement beim Öffnen der Mappe mit einem Bild aus dem WWW (oder auch mit einer kompletten Webseite) befüllen :

Private Sub Workbook_Open()
Sheets("Tabelle1").WebBrowser1.Navigate "https://www.google.de/intl/de_de/images/logo.gif"
End Sub


Gruß, NoNet

Anzeige
perfekt
21.05.2009 18:53:41
stef@n
Hallo NoNet
klasse - danke ! Für wenig BilderLinks bestens geeignet !
Schönen Abend noch und besten Gruß
Stef@n

359 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
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
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Userform automatisch an Bildschirmgröße anpassen
Krügner

Hallo,
könnt Ihr mir bitte noch einmal helfen. Ich bin blutiger VBA-Laie. Ich habe eine Userform kreiert. Sie soll auf verschiedenen Bildschirmen (17, 15, 19 Zoll) angewendet werden. Wie bekomme ich eine automatische Anpassung auf die verschiedenen Bildschirmgrößen und Auflösungen hin. Vers...
18.03.2009 09:02:15
Thread-ID: 1061275
4 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Summenbildung abhängig vom Zelleninhalt
Janesch

Hallo Excel - Forum...
brauche mal wieder eure Hilfe...
https://www.herber.de/bbs/user/62898.xls
in der angehängten Datei werden in Spalte B die Abteilungs -Nr. und Spalte C die Abteilungs-Name eingegeben. Die Abteilung selber wird dann noch mal in X-mögliche Unterabteilungen aufge...
03.07.2009 10:32:39
Thread-ID: 1086151
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton 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
2
3
2
3
3
8
3
3
2
2
4
3
6
11
9
7
7
5
3
3
1
3
4
7
1