Thema: Bilder aus Pfad einfügen

Hallo liebe Excel-Freunde,

ich füge eine kleine Datei an. In dieser möchte ich Bilder aus einem bestimmten Verzeichnis meines Netzwerkes einfügen. Das Problem ist, dass es nicht immer das gleiche Bild ist, sondern das VBA fragen soll, welches Bild er einfügen soll. Damit komme ich noch nicht ganz zurecht. Vielleicht kann mir hier jemand helfen, da wäre ich sehr dankbar.
In der Datei ist es das vorletzte Makro (Bilder_einfügen).

https://www.herber.de/bbs/user/175025.xlsm

Herzlichen Dank schon mal
Ulrike

Sub Bilder_einfügen()

' Bilder_einfügen Makro

    Dim Datei, wks As Worksheet

    Datei = Application.GetOpenFilename

    If Datei <> False Then

        Sheets(1).Activate

        Range("A22").Select

        ActiveSheet.Pictures.Insert(Datei).Select

        Selection.ShapeRange.Height = 100

        Selection.Copy

        Range("B22").Select

        ActiveSheet.Paste

        Range("A31").Select

        ActiveSheet.Paste

        Range("B31").Select

        ActiveSheet.Paste

    End If

End Sub

Hallo Uli,

schau mal, habe selbst gerade nach dir auch einen Forums Beitrag und eine Hilfegesuch eingestellt.
https://www.herber.de/forum/messages/2003100.html
Dort findest du auch unsere Beispieldatei die wir zum Import von Bildern mittels lokalen Bilderpfaden nutzen und sehr gut funktioniert.
Evtl. ist diese Datei ja schon das was du suchst?. Problem bei uns ist, das sie leider noch nicht mit online URLs klarkommt sondern nur mit lokalen Bildpfaden.

VG, Sascha

Es funktioniert ganz einwandfrei. Ich danke dir ganz herzlich Onur

lg
Ulrike