VBA: Inhalt einer Textbox in PPT auslesen
Matthias5
ich habe in einer Powerpoint-Präsentation verschiedende Textboxen und Comboboxen, deren Wert ich gerne aus Excel heraus auslesen möchte. Das will mir leider nicht gelingen. Derzeit versuche ich mich mit diesem Code:
Sub import_from_ppt()
Dim PPT
Dim objPP As Object
Dim objP As Object 'PowerPoint.Presentation
'Dim objCL As Object 'PowerPoint.CustomLayout
Dim objS As Object 'PowerPoint.Slide
Application.ScreenUpdating = False
PPT = Shell("C:\Program Files\Microsoft Office\OFFICE11\POWERPNT.EXE")
Set objPP = CreateObject("PowerPoint.Application")
Set objP = objPP.Presentations.Open("PFAD\XYZ.PPT")
Set objS = objP.Slides(2)
MsgBox objS.Shapes("TextBox1").TextFrame.Textrange.Text
objP.Close
objPP.Quit
Set objPP = Nothing
Set objP = Nothing
Set objS = Nothing
Application.ScreenUpdating = True
End Sub
An der markierten Stelle erhalte ich einen Automatisierungsfehler:Kann mich hier bitte jemand abholen und mir zeigen, wie es richtig geht?
Danke und viele Grüße,
Matthias