Office: (Office 2013) OLE-Objekt formatieren VBA

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?

 

Hallo,

mein Code nimmt an, dass die Inlineshape eine Höhe von 50 bekommen soll (Zuweisung an Variable H1# = 50#). Du musst diesen Wert an deine Verhältnisse entsprechend anpassen (blau gekennzeichnete Codepassage).

Code:

Sub pdf_Inlineshape_test()
 Dim Sh As Word.InlineShape
 Dim H#, H1#
 '
 Selection.GoTo what:=wdGoToBookmark, Name:="Konformität"
 Set Sh = Selection.InlineShapes.AddOLEObject(ClassType:="AcroExch.Document.DC", _
     FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
 '
 With Sh
  H# = .Height: [COLOR="#0000CD"]H1# = 50#[/COLOR]
  .Height = H1#: .Width = .Width * H1# / H#
 End With

End Sub