Um eine PowerPoint-Präsentation in Excel zu öffnen und den Inhalt einer Textbox auszulesen, benötigst Du VBA (Visual Basic for Applications). Folge diesen Schritten:
Öffne Excel und gehe zu Entwicklertools > Visual Basic, um den VBA-Editor zu starten.
Füge ein neues Modul hinzu: Rechtsklicke auf VBAProject (DeineDatei.xlsx) > Einfügen > Modul.
Kopiere den folgenden Code in das Modul:
Sub PowerPointInExcelÖffnen()
Dim pptApp As Object
Dim pptPräsentation As Object
Dim slide As Object
Dim textbox As Object
Dim i As Integer
' PowerPoint öffnen
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
' .ppt-Datei öffnen
Set pptPräsentation = pptApp.Presentations.Open("C:\Pfad\zu\deiner\Datei.pptx")
' Text auslesen
For i = 1 To pptPräsentation.Slides.Count
Set slide = pptPräsentation.Slides(i)
For Each textbox In slide.Shapes
If textbox.HasTextFrame Then
If textbox.TextFrame.HasText Then
Debug.Print textbox.TextFrame.TextRange.Text
End If
End If
Next textbox
Next i
' Präsentation schließen
pptPräsentation.Close
pptApp.Quit
End SubPasse den Pfad zur .pptx-Datei an: Ändere "C:\Pfad\zu\deiner\Datei.pptx" auf den tatsächlichen Pfad Deiner PowerPoint-Datei.
Starte das Makro: Drücke F5, um das Makro auszuführen und den Text auszulesen.
Fehler: PowerPoint kann "^0" leider nicht lesen.
PowerPoint öffnet sich nicht.
Text wird nicht ausgelesen.
Wenn Du eine PowerPoint-Tabelle in Excel umwandeln möchtest, kannst Du die Daten auch manuell oder über die Zwischenablage kopieren:
.ppt-datei zu öffnen, kannst Du den oben genannten VBA-Code verwenden. For-Schleife auf eine spezifische Foliennummer beschränkst.1. Wie kann ich mehrere .ppt-dateien lesen? Du kannst eine Schleife im VBA-Code einfügen, die durch einen Ordner geht und jede Datei öffnet.
2. Ist es möglich, Excel in PowerPoint umzuwandeln? Ja, Du kannst Excel-Diagramme oder -Tabellen kopieren und in eine PowerPoint-Präsentation einfügen. Achte darauf, die Daten aktuell zu halten.