ich möchte eine pdf als Objekt einfügen, was auch soweit funktioniert mit folgendem Code:
Sub ObjektEinfuegen()
Range("E3").Select
ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.11", Link:=False, _
DisplayAsIcon:=False).Activate
Application.Wait DateAdd("s", 5, Now)
Call Acro_Reader_killen
End Sub
Nach ca. 5 Sekunden soll im Hintergrund Acro geschlossen werden, was auch funktioniert.Sub Acro_Reader_killen()
Const STRPC As String = "."
Dim objWMI As Object, objProcesses As Object, objProcess As Object
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STRPC & "\root\ _
cimv2")
Set objProcesses = objWMI.ExecQuery("Select * from Win32_Process Where Name = 'Acrobat.exe'") ' _
oder acrord32.exe
For Each objProcess In objProcesses
objProcess.Terminate
Next
End Sub
Kurrioser Weise sieht die eingefügte pdf straffiert aus.Gehe ich die oben angefügten Prozeduren manuell durch, so geschieht das auch, jedoch schließe ich den Reader ist die Straffur weg.
Woran kann das liegen ? Ich möchte bzw. muss dieses Objekt noch ein wenig zuschneiden, d.h. vom unteren Rand der Seite muss noch ein wenig abgeschnitten werden.
Vielleicht kann mir Jemand weiterhelfen. Über jedes Feedback bin ich dankbar.
Gruß
Laeubchen