Video 395: Ein Bild aus dem Internet herunterladen, in Image-Element anzeigen und in Blatt einfügen

Beim Initialisieren der UserForm wird eine Bilddatei aus dem Internet heruntergeladen und lokal gespeichert. Das heruntergeladene Bild wird dann in einem Image-Steuerelement der UserForm angezeigt. Wenn der Benutzer auf die OK-Schaltfläche klickt, wird das Bild aus dem Image-Steuerelement kopiert und in eine Tabelle eingefügt. Die Größe des Bildes wird automatisch an die Größe der Zielzelle in der Tabelle angepasst.
Die Beispieldatei zu diesem Video ist in meinem VBA-Tanker unter ID15284 abrufbar.
Weitere Angebote auf meiner Homepage:
- Die VBA-Schule - Start im März 2024
held-office.de...
- Excel-VBA-Web-Seminare als Kauf-Videos
held-office.de...
- Das kostenlose, monatlich erscheinende VBA-Rundschreiben:
held-office.de...
- Die VBA-Datenbank VBA-Tanker mit 13.383 Beispielen (jetzt auch mit Non-VBA-Sparte)
Zur Vorstellung:
• 279: Der Excel-Tanker ...

[@MathiasLeubner]

Kannst du bitte die Funktion in der Beschreibung speichern, damit diese kopiert werden kann?

[@vba-kracherheld-office]

ja, gern: #If VBA7 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As Long #Else 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 #End If 'Global deklariert Dim strZiel As String Private Sub UserForm_Initialize() ' Dieses Makro lädt eine Datei aus dem Internet herunter und speichert sie lokal auf Ihrem Computer. ' Deklaration der Variablen Dim strUrl As String Dim lngErg As Long Dim ctrl As Control ' URL der herunterzuladenden Datei strUrl = "www.held-office.de/Downloads/Perlfee2023.jpg" strZiel = ThisWorkbook.Path & "\Perfee2023.jpg" ' Aufruf der API-Funktion URLDownloadToFile, um die Datei herunterzuladen lngErg = URLDownloadToFile(0, strUrl, strZiel, 0, 0) If lngErg = 0 Then Me.Image1.BorderStyle = fmBorderStyleNone Me.Image1.Picture = LoadPicture(strZiel) Me.Image1.PictureSizeMode = fmPictureSizeModeStretch Me.TXT_URL.Value = strUrl Me.Caption = "" Me.BackColor = RGB(240, 240, 240) End If For Each ctrl In Me.Controls ' Je nach Typ des Steuerelements wird die Formatierung festgelegt Select Case TypeName(ctrl) Case "TextBox" ' TextBox-Steuerelemente werden mit grauer Schriftfarbe ' und einer Schriftgröße von 10 formatiert. ctrl.Font.Size = 10 ctrl.ForeColor = RGB(128, 128, 128) ctrl.Enabled = False Case "Label" ' Label-Steuerelemente werden mit grauem Hintergrund, ' grauer Schriftfarbe und einer Schriftgröße von 12 formatiert. ctrl.BackColor = RGB(240, 240, 240) ctrl.Font.Size = 10 ctrl.ForeColor = RGB(128, 128, 128) ctrl.TextAlign = fmTextAlignLeft Case "CommandButton" ' CommandButton (OK-Schaltfläche) wird mit grünem Hintergrund, ' weißer Schriftfarbe und einer Schriftgröße von 11 formatiert. ctrl.BackColor = RGB(0, 100, 0) ctrl.ForeColor = RGB(255, 255, 255) ctrl.Font.Size = 11 End Select Next ctrl End Sub Private Sub cmd_ok_Click() Dim shp As Shape Dim rngTarget As Range ' Zielbereich für das Bild in der Tabelle festlegen Set rngTarget = Tabelle1.Range("B6") ' Bild aus dem Image-Steuerelement kopieren und in die Tabelle einfügen Set shp = Tabelle1.Shapes.AddPicture _ (strZiel, msoFalse, msoCTrue, rngTarget.Left, rngTarget.Top, -1, -1) ' Größe des Bildes anpassen, um in die Zelle zu passen shp.LockAspectRatio = msoTrue shp.Width = rngTarget.Width shp.Height = rngTarget.Height End Sub Private Sub cmd_Cancel_Click() Unload Me End Sub