powerpoint textfelder nach excel auslesen

[Andreas]

Ich versuche, diverse Text- und auch Optionsfelder, die
sich in einem Fragebogen in Powerpoint befinden, nach
Excel auszulesen und dort zu schreiben. Kann mir jemand
helfen?

[Philipp von Wartburg]

Hallo Andreas

Hier eine Automationslösung mit 'early binding'. Das
Makro startet PowerPoint, öffnet eine Präsentation,
liest den Inhalt eines Textfeldes, die Value eines
Optionbuttons, schliesst die Datei und beendet
PowerPoint:

Sub FolieAuslesen()
Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Set pptApp = New PowerPoint.Application
pptApp.Visible = True 'VOR Open-Methode
Set pptPres = pptApp.Presentations.Open("D:\Test.ppt")
With pptPres
Set pptSlide = .Slides(1) 'Folie 1
With pptSlide
MsgBox .Shapes(1).TextFrame.TextRange.Text
End With
Set pptSlide = .Slides(2) 'Folie 2
With pptSlide
MsgBox .Shapes(1).OLEFormat.Object.Value
End With
End With
Set pptSlide = Nothing
pptPres.Close
Set pptPres = Nothing
pptApp.Quit
Set pptApp = Nothing
End Sub

Gruss
Philipp

Andreas schrieb in Nachricht
<9c2d01c27e8b$8dd38a00$39ef2ecf@TKMSFTNGXA08>...