Hallo Leute,
Ich bin hier neu und hoffe das Ihr mir helfen könnt.
Ich möchte in mein Datenblatt eine PDF-Datei einfügen. Das ganze soll ähnlich erfolgen wie ich es mit den Bildern gemacht habe (VBA-Code sie folgend).
Der PDF-Dateiname setzt sich aus Artikelnummer (gespeichert in Zelle A2) und ".pdf" zusammen. Die Datei soll in Zelle AC2 gespeichert werden. Beim Doppelclick auf die Zelle "AC2" soll sich das PDF-Dokument öffnen. Ich hoffe die Beschreibung meines Problems ist ausreichend.
Vorab schon mal herzlichen Dank.
Dim Rw&, PFAD$, Datei$, Bild As Shape, letzteZeile as Long
PFAD = "\\FILESERVER\Produkte\bilder\small_200x200\"
With ActiveSheet
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
For Rw = 2 To letzteZeile
Datei = .Range("A" & Rw) & ".png"
If Dir(PFAD & Datei) > vbNullString Then
.Pictures.Insert (PFAD & Datei)
Set Bild = .Shapes(.Shapes.Count)
Bild.LockAspectRatio = msoFalse
Bild.Placement = xlMoveAndSize
Bild.Left = .Range("D" & Rw).Left
Bild.Top = .Range("D" & Rw).Top
Bild.Width = .Range("D" & Rw).Width
Bild.Height = .Range("D" & Rw).Height
End If
Next
End With
Range("A1").Select
ActiveWorkbook.Save