Macro to add an embedded object and resize to certain dimensions

I would like a macro to embed a PDF (not the icon option) and resize it too 6.8" heigth 6.38" width. So far i can just get it to embed and any other macro i add to resize the object will not work. I think it has to do with the object name changing each time a new one is added. I tried to create a macro to change the name to object 1 but that did not work either. All i have so far is the following.

Sub Add_PDF_Access()
'
' Add_PDF_Access Macro
'

'
    Range("A15:O47").Select
    ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.pdfxml.1", Link:=False, _
        DisplayAsIcon:=False).Activate
    ActiveWindow.SmallScroll Down:=-24
End Sub