Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

Forumthread: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

05.02.2026 15:32:57

Nick

Hallo,

ich habe eine Excel Tabelle, aus unserem Datensystem wird eine Artikelnummer in Spalte A eingefügt.
Ein Makro in der Date erzeugt aus der Artikelnummer in Spalte B:
\\serverIP\ARTIKELNUMMER.jpg
Diese Bilder werden dann in der Spalte angezeigt.

Wenn diese Excel Datei nun versendet wird an andere Personen die nicht zugriff auf den \\SERVER Pfad haben erscheinen die Bilder nicht.

Wie bekomme ich es hin das die Bilder in die Excel Tabelle integriert werden ?

Da die Tabelle beim Kunden weiter bearbeitet wird und zurückgesendet wird (Bestellmenge inkl. Steuer/Rabattberechnung eingetragen, etc.) kommt PDF leider nicht in Frage.

Gruß und Danke

SMASH2k

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

05.02.2026 16:13:38

Uduuh
AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 18:19:13

Kuwer
AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

09.02.2026 09:57:12

Nick
AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 15:51:42

Nick
AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 19:26:19

Uduuh
AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

09.02.2026 17:05:35

schauan

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

05.02.2026 16:13:38

Uduuh

Hallo,
Ein Makro in der Date erzeugt aus der Artikelnummer in Spalte B:
Dann füg doch statt dessen das Bild ein. Der Rekorder ist dein Freund.

Gruß aus'm Pott
Udo

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 18:19:13

Kuwer

Hallo,

starte dieses Makro:

Sub aaa()

  Dim oGrafik As Object

  For Each oGrafik In ActiveSheet.Shapes

    With oGrafik

      .Copy

      .TopLeftCell.Select

      .Delete

    End With

    ActiveSheet.Pictures.Paste

  Next oGrafik

End Sub

Gruß, Uwe

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

09.02.2026 09:57:12

Nick

hmmm....
Die Bilder liegen doch auf dem Server und werden bereits in der Zelle angezeigt.
Der Pfad müsste in ein Bild umgewandelt werden welches dann in die Date eingefügt wird...

Oder wie geht das ?

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 15:51:42

Nick

hmmm...sorry, irgendwie verstehe ich das nicht.

Hab mal die Excel und 2 Bilddateien hochgeladen:

https://www.herber.de/bbs/user/180266.xlsx

Userbild

Es wird mit einem Script aus der Spalte A der Dateiname generiert und zum festen Pfad \\172.23.16.17\Bilder\PG10842.jpg zusammengebastelt.

Die Bilder befinden sich aber immer noch auf dem Server \\172.23.16.17\Bilder\

Was muß ich jetzt genau machen um die Bilder in die Excel Tabelle reinzubekommen ? Die werden jetzt ja schon angezeigt - Wie lautet der Befehl aus dem Pfad das Bild zu nehmen und in die Tabelle einzukopieren ?

Gruß und Danke

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

11.02.2026 19:26:19

Uduuh

Hallo,
teste mal:

Sub Bilder_rein()

  Dim rngC As Range

  For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))

    rngC.Offset(, 1).InsertPictureInCell "\\172.23.16.17\Bilder\PG" & Replace(rngC.Value, "_A", "") & ".jpg"

  Next rngC

End Sub

Gruß aus'm Pott
Udo

AW: Bilder aus lokalem Bilder Pfad für Weitergabe integrieren

09.02.2026 17:05:35

schauan

... der Pfad wird nicht in ein Bild gewandelt sondern das Bild, was da liegt, wird eingefügt.

ein aufgezeichneter Code zum Einfügen eines Bildes in eine Zelle sieht z.B. so aus:

Sub Makro1()

'

' Makro1 Makro

'



'

    Range("A2").Select

    Selection.InsertPictureInCell ("C:\Test\Pictures\Thüringen.png")

End Sub

jetz müsste man
1) den Pfad und Dateinamen aus den Zellen nehmen
2) eine Schleife bauen, um alle Zellen abzuklappern

Das könnte dann so aussehen:

Sub Makro1()

'

' Makro1 Makro

'



'

    'Schleife von Zeile 2 bis Zeile 10

    For iCnt = 2 to 10 

        'in Spalte A, Zeile iCnt, das Bild einfuegen

        Range("A" & iCNt).InsertPictureInCell (Range("A" & iCNt).Value)

    Next

End Sub