pdf als objekt einfügen, reader schließen ect
07.11.2014 22:01:03
Laeubchen
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
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
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
Anzeige