Office 2013: OLE-OBjekt formatieren VBA

[Clari]

Hallo,

ich habe eine PDF in ein Word Dokument eingefügt.
Dies geschieht mit folgenden Code:

Selection.GoTo what:=wdGoToBookmark, Name:="Konformität"
 Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.DC", _
        FileName:="", LinkToFile:=False, DisplayAsIcon:=False

Jetzt füllt die PDF jedoch eine ganze Seite aus und ich würde das ganze gerne kleiner haben.
Deswegen habe ich folgendes angehängt:
With Selection
        .ShapeRange.LockAspectRatio = msoTrue
        .ShapeRange.Height = 50#
        End With

Jedoch passiert dadurch gar nichts.
Kann mir bitte jemand Helfen?