Office: pdf in kommentar via Makro (VBA)

Guten Morgen zusammen,

ich habe im Internet ein Makro gefunden, womit ich Bilder in ein Kommentarfeld einfügen kann. Mein Problem ist allerdings, dass ich es gerne so erweitert haben möchte, dass ich auch pdf-Dateien einfügen kann. Ich habe gedacht, dass ich einfach bei den Dateiformaten *.pdf ergänzen müsste, aber da kommt leider folgender Fehler: "Out of memory".

Könnt mir jemand sagen was da falsch läuft?
Bzw. den Code verbessern?

Vielen Dank schon mal.

Code:

Sub Kommentarbild_einfügen_Beispiel_2()
Dim Kommentar As Object, Bild As Variant

'Dialogfenster zur Auswahl eines Bildes öffnen
Bild = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.jpg, *.gif, *.bmp", , "Kommentarbild einfügen...")

'Wenn kein Bild ausgewählt wurde, Prozedur beenden
If Bild = False Then Exit Sub

'Wenn kein Kommentar in der aktiven Zelle vorhanden, dann
If ActiveCell.Comment Is Nothing Then
    'Kommentar einfügen
    ActiveCell.AddComment
    'Den Text im Kommentarfeld löschen
    ActiveCell.Comment.Text Text:=""
    'Objektvariable erzeugen
    Set Kommentar = ActiveCell.Comment.Shape
    'Dem neuen Objekt das Bild zuweisen und in der Größe anpassen
    With Kommentar
        .Fill.UserPicture Bild
        .Width = 250
        .Height = 250
    End With
End If
End Sub

 

Hallo!

Code:

With Kommentar 
   .Fill.UserPicture Bild 
   .Width = 250 
   .Height = 250 
End With 

Du kannst dem Kommentar-Objekt über die Methode "UserPicture" des Fill-Objektes eine Grafik-Datei (jpg, gif, bmp, ...) zum Öffnen übergeben, die dann im Kommentar angezeigt wird, aber das funktioniert leider nicht mit einer PdF-Datei. PDF-Dateien schauen zwar auch in etwa so aus, als wären sie Grafik-Dateien, aber dieser Schein trügt: es sind in Wahrheit spezielle Text-Dateien, in denen eine ganze Reihe von Objekten (repräsentiert in bestimmten Textformaten) enthalten sind. Erst durch ein spezielles Reader-Programm (wie zB. der Acrobat-Reader von Adobe) werden sie als "Text/Grafik" angezeigt.