Eingebettete Objekte Kopieren und Einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Eingebettete Objekte Kopieren und Einfügen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingebettete Objekte Kopieren und Einfügen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

347 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread