EXCEL mit VBA eine pdf einfügen

[Flow1001]

Hallo Forum,

ich möchte in eine verbunden Zelle eine PDF- Datei einfügen und an die Zellengröße anpassen,

mit einem "jpg-Bild" funktioniert alles wunderbar, sieht so aus:

"Pfad" ist ein veränderbarer Link zu einen Datei
------------------------------------------------------------------------------------------------
With ActiveSheet
        For Rw = 4 To 4
          PFAD = Range("N" & 4).Value
         
            If Dir(PFAD) <> vbNullString Then .Pictures.Insert (PFAD)
                Set bild = .Shapes(.Shapes.Count)
                bild.LockAspectRatio = msoFalse
                bild.Left = .Range("D" & Rw + 52, "F" & Rw + 59).Left
                bild.Top = .Range("D" & Rw + 52, "F" & Rw + 59).Top
                bild.Width = .Range("D" & Rw + 52, "F" & Rw + 59).Width
                bild.Height = .Range("D" & Rw + 52, "F" & Rw + 59).Height
           
        Next
      End With

------------------------------------------------------------------------------------------------
Hat jemand eine Lösung für mein kleines Problem mit der PDF?

Vielen Dank für Eure Mithilfe

VG
Flow

[schauan]

Hallöchen,

Du kannst die pdf nur als Objekt oder Verknüpfung einfügen …Du kannst dann nur das Symbol anpassen, im Prinzip

Sub Makro1()
With ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Test\Meine.pdf", Link:=True, DisplayAsIcon:=False)
.Width = 40
.Height = 10
End With
End Sub