AW: Eingebettete Objekte Kopieren und Einfügen
06.05.2016 12:50:50
Hans
Sorry wenn ich mich mich missverständlich ausgedrückt habe.
Beides das mit den bildern habe ich soweit im Griff mit folgenden code:
Sub Bilder_einfuegen()
Dim Pfad As String, Wiederholungen As Long
Dim PicBild As Picture
Pfad = "C:\Users\Benutzer-R2959605\Desktop\Ordnername\Produktbilder Artikelschein\"
Application.ScreenUpdating = False
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
If Trim(Cells(Wiederholungen, 2).Value) "" Then
If Dir(Pfad & Cells(Wiederholungen, 2).Value & ".jpg") "" Then
Set PicBild = ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 2)
.Value & ".jpg")
With PicBild
.Top = Cells(Wiederholungen, 1).Top
.Left = Cells(Wiederholungen, 1).Left
End With
End If
End If
Next
Application.ScreenUpdating = True
Set PicBild = Nothing
End Sub
Hier war nur die Frage ob es eine Möglichkeit gibt die Bilder in der Zelle mittig einzupassen da diese unterschiedliche Breiten und Höhen je nach Produkt haben.
Wichtiger ist mir aber das einfügen der Eingebetteten Barcodes diese liegen in der Tabelle
"Artikelstamm_LEH" Ich habe diese mit dem Corel Barcode - Generator direkt in diese Tabelle eingefügt.
Die solten im Tabellenblatt "Artikelschein_LEH" in der Spalte G in der jeweiligen Zelle mittig eingefügt werden.
Gruß
Hans