PDF embed in active sheet

[AatB]

Hallo,

ik probeer een pdf document in een excelsheet te embedden.

de volgende code geeft als foutmelding: methode add van klasse oleobjects is mislukt

Wat doe ik fout?

mvg,

Aat

Sub Insert_OLE_Object()
  
    ActiveSheet.OLEObjects.Add Filename:="h:\temp\sample.pdf", Link:=False, DisplayAsIcon:=False, Left:=40, top:=40, Width:=150, Height:=10

End Sub

 

[WHER]

Probeer het eens met deze "lange" versie:

Sub Insert_OLE_Object()
Dim MyOLEObject As New OLEObject
Dim sFileName As String
sFileName = "h:\temp\sample.pdf"
  
Set MyOLEObject = ActiveSheet.OLEObjects.Add(Filename:=sFileName, Link:=False, DisplayAsIcon:=False)
MyOLEObject.Activate

MyOLEObject.Left = 40
MyOLEObject.Top = 40


MyOLEObject.Height = 10
MyOLEObject.Width = 150

Set MyOLEObject = Nothing
End Sub

 

[snb]

Geen probleem met:

Sub M_snb()
    c00 = Dir("G:\OF\*.pdf")
    ActiveSheet.OLEObjects.Add , "G:\OF\" & c00, False, False, , , , 140, 40, 150, 10
End Sub

 

[AatB]

Hallo snb & WHER,

Bij mij zelf thuis (OFFICE 2016) werkt het prima.
Helaas op de zaak (OFFICE 2013) krijg ik een foutmelding.

Fout 1004 tijdens uitvoering
Kan het object niet invoegen


mvg,

Aat