Office: Hilfe bei Grafikverknüpfungen!

Hallo zusammen!

Ich benötige mal eure Hilfe...

Ich soll in Einer Excel-Datei (ca. 1000 Zeilen mit verschiedenen Artikel Nr. etc.) immer die passende Grafik einfügen.

In Spalte "C" steht der Name der Grafik, z. B. 001400.jpg.

Nun soll in Spalte "D" das passende Bild (liegt in einem bestimmten Ordner im Netz) eingefügt werden.

Gibt es eine Funktion oder ein VBA-Script o. ä. dafür, oder muss ich wirklich jedes Bild einzeln einfügen?

Schon jetzt vielen Dank,

Phyton2706

 

Hallo!

Du kannst diesen Code mal testen:

Code:

Sub BilderEinfügen()
'Die nächsten drei Zeilen musst du auf deine Tabelle anpassen!!!
Const Pfad = "E:\Test\Bilder\"
Const ErsteZeile = 2
Const LetzteZeile = 1000
Dim x As Long
Dim Platz As Range
Dim Bild As Object
For x = ErsteZeile To LetzteZeile
  If Trim$(Cells(x, 3).Text) <> "" Then
    If Dir$(Pfad & Trim$(Cells(x, 3).Text), vbNormal) <> "" Then
      Set Platz = Cells(x, 3).Offset(0, 1)
      Set Bild = ActiveSheet.Pictures.Insert(Pfad & Trim$(Cells(x, 3).Text))
      Bild.Left = Platz.Left
      Bild.Top = Platz.Top
      Bild.ShapeRange.Width = Platz.Width
    End If
  End If
Next
End Sub

Funktioniert zumindest auf meinem Rechner.
Wie es ist, wenn die Bilder im Netz liegen oder auf einem Server, kann ich dir leider nicht sagen...

 

Hallo Schatzi!

Erstmal vielen Dank für Deine schnelle Hilfe, aber leider klappt es bei mir nicht...

Ich habe deine Code so eingegeben:

Code:

Sub BilderEinfügen()
'Die nächsten drei Zeilen musst du auf deine Tabelle anpassen!!!
Const Pfad = "U:\SCHWERT\MARKETING\ABBILD\Artikelfotos\Tif\Art 0"
Const ErsteZeile = 2
Const LetzteZeile = 1200
Dim x As Long
Dim Platz As Range
Dim Bild As Object
For x = ErsteZeile To LetzteZeile
  If Trim$(Cells(x, 3).Text) <> "" Then
    If Dir$(Pfad & Trim$(Cells(x, 3).Text), vbNormal) <> "" Then
      Set Platz = Cells(x, 3).Offset(0, 1)
      Set Bild = ActiveSheet.Pictures.Insert(Pfad & Trim$(Cells(x, 3).Text))
      Bild.Left = Platz.Left
      Bild.Top = Platz.Top
      Bild.ShapeRange.Width = Platz.Width
    End If
  End If
Next
End Sub

Ich habe mal einen Auszug aus meiner Datei angehangen...

Den Pfad, den ich angegeben habe, ist ein gemapptes Laufwerk auf unserem Server.

Habe ich den Code an der falschen Stelle eingefügt?

Phyton2706

 

Hallo!

In der Zeile, wo du den Pfad angibst, fehlt ganz hinten der letzte Backslash!
Ansonsten müsste alles OK sein.

 

Das war der Fehler... Danke!

Phyton2706