Eingebettete Objekte Kopieren und Einfügen

Hans · 2016-05-05T19:23:38+00:00

Sorry habe den Haken nicht gesetzt das Problem ist noch da Hallo Nepumuk vielen Dank für deine Antwort. Ich werde eine Mustermappe morgen Vormittag hochladen im moment geht dies nicht da ich zum Essen abgeholt werde. Ich würde mich freuen wenn du dann noch Interesse an meinem Problem hast. Wünsche dir einen schönen Abend. Gruß Hans

Hallo Nepumuk,
Die Mustermappe ist unter

Die Datei https://www.herber.de/bbs/user/105417.xlsm wurde aus Datenschutzgründen gelöscht

abrufbar.
Der Artikelschein hat im Orginal 4 Seiten und geht bis zur Zeile 267.
In die Mappe kommen nochmals die drei Tabellen mit der Endung GH anstelle von LEH im Tabellennamen.
Ich habe auch schon die Ean Codes in Bilddateien umgewandelt um sie dann mit den mir verfügbaren Makros einzulesen doch ist da die Qualität nicht gut so dass der code von manchen Scannern nicht gelesen werden kann, bzw, wird er beim einfügen um fast das doppelte vergrößert oder aber in die falsche Zelle eingefügt.
Zu den Makros zum Einfügen der Bilder habe ich auch noch eine Frage und zwar werden die Bilder in der Zelle oben links eingefügt, gibt es die Möglichkeit dass diese in der mitte einer Zelle eingefügt werden.
Gruß
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

Eingebettete Objekte Kopieren und Einfügen

Forumthread: Eingebettete Objekte Kopieren und Einfügen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial