Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Internetbilder und VBA

Forumthread: Internetbilder und VBA

Internetbilder und VBA
31.08.2006 09:48:57
Dieter
Hallo,
kennt jemand eine Möglichkeit, per VBA-Code Bilder von Internetseiten entweder
in Excel abzuspeichern oder das Bild als eigene jpg-Datei abzuspeichern.
Für eventuelle Antworten
Vielen Dank
Mit freundlichen Grüßem
Dieter Steffen
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Internetbilder und VBA
31.08.2006 21:00:28
Josef
Hallo Dieter!
Eine einfache Möglichkeit.
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 downloadPic()
Dim strFile As String, strTemp As String
Dim result As Long

strFile = InputBox("Internetadresse des Bildes?", "Bild vom Netz", "http://")

If strFile = "" Then Exit Sub

strTemp = Environ("TEMP") & "\tmp." & Right(strFile, 3)

result = URLDownloadToFile(0, strFile, strTemp, 0, 0)

If result = 0 Then
  
  On Error Resume Next
  ActiveSheet.Pictures.Insert (strTemp)
  
  If Err Then
    MsgBox "Ungeeigneter Dateityp!", 64, "Fehler"
    Err.Clear
  End If
  
  On Error GoTo 0
  
  Kill strTemp
  
Else
  
  MsgBox "Internetfile nicht gefunden!", 64, "Fehler"
  
End If



End Sub


Gruß Sepp

Anzeige
;

Forumthreads zu verwandten Themen

Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Bild im image eines userforms löschen
Polarfuchs

Hallo Ihr Checker,
ich habe in einer Sub einem Image in einer Userform ein Bild von der Festplatte mittels LoadPicture zugeweisen. Jetzt bräuchte ich den Befehl, das Bild aus dem Image des Userforms wieser zu löschen, so dass beim nächsten Aufruf des Userforms das Image wieder leer ist und...
18.09.2008 15:53:51
Thread-ID: 1010775
4 Beiträge
Textformatierung in einer Formel
Dieterlem

Hallo Excelfreunde,
ich möchte ein Wort fett innerhalb eines Formelergebnisses fett darstellen. Beispiel:
"WENN(A1="Ja";"Beispieltext soll Fett dargestellt werden";"")
Dabei soll nur das Wort 'Fett', fett formatiert werden.
Ist so etwas möglich?
Gruß
Dieterlem
27.10.2008 19:55:00
Thread-ID: 1019731
3 Beiträge
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
VBA - Ganzer Bildschirm ein/aus
Klaus

Verehrte EX-Gurus!
Ich habe mir in Excel ein CD-Archiv angelegt, das ich bequem über einfache Makros auf meine Bedürfnisse abgestimmt steuern kann.
Unter anderem kann ich den "Ganzen Bildschirm" ein- und ausschalten - ich wollte diese Prozedur mit Variable und Not Variable auf ein Makro...
08.11.2008 08:21:33
Thread-ID: 1022845
3 Beiträge
Anzeige
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Zellenformat in Formeln
Larass

Hallo,
ich möchte in einer Zelle links von einem Ergebnis einen string anzeigen, jedoch nur wenn auch ein ergebnis in der Zelle steht.
Konkret habe ich z.B. als Ergebnis eine Spannung Sigma,st
Sobald ich eine Formel eingebe wird aber die Formatierung zerschossen, sprich das Sigma wi...
16.12.2008 16:42:12
Thread-ID: 1033346
6 Beiträge
Formatproblem in Formel
martin

Hallo nochmal! :-)
Mein Problem:
In Zelle A1 steht ein Datum. Formatiert auf "Datum, Typ: 14.03.01"
In Zelle A2 soll neben Text auch das Datum (+14 Tage) dargestellt werden.
Also so:
="Bitte überweisen Sie den Betrag bis zum "&A1+14&" auf ....."
Das Problem: Das...
19.12.2008 15:18:41
Thread-ID: 1034180
3 Beiträge
Anzeige
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Formeleditor in Userform???
Martin

Hallo zusammen,
ich nehme in einer Userform verschiedene Berechnungen vor, nun sollte ich wenn mit der Maus über ein Ergebnis gefahren wird per MouseMove die zugehörige Berechnugsformel in einem Textfeld anzeigen.
Ist es möglich dies per Formeleditor zu machen um die Formeln vernünftig...
15.01.2009 21:19:00
Thread-ID: 1040313
8 Beiträge
Formelergebnisse in UserForm eintragen
Hans

Hallo,
Ich brauche ein meiner UserForm insgesamt 12 Formelergebnisse in den Label. Das heißt 12 Label, für je ein Ergebniss
Die Ergebnisse dienen als Vorabinformation (über verschiedene Berechnungsvarianten) für den User, der dann in der UF eine Variante mit einem "OptionButton" auswähl...
03.03.2009 22:03:23
Thread-ID: 1056120
6 Beiträge
wenn Bild hinterlegt, geht nichts mehr (Userform)
Reinhard

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...
29.04.2009 08:10:29
Thread-ID: 1071763
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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