Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Text aus Powerpoint extrahieren

Text aus Powerpoint extrahieren
14.06.2008 19:57:00
Peter
Hallo liebe Gemeinde,
ich habe folgendes Problem:
Ich würde gerne den Text eines Textfeldes in Powerpoint in word oder Excel per VBA kopierne lassen. DAs ganze soll dann automatisch über alle Folien in Powerpoint laufen und den Inhalt der Textboxen untereindern in word oder in verschieden Zellen in Excel.
Ist eine deratige Prozedure möglich?
Besten dank und LG
Peter

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus Powerpoint extrahieren
14.06.2008 23:19:36
Josef
Hallo Peter,
ohne Fehlerbehandlung.
Sub ExtractTextFromPPT()
Dim objPPT As Object, objSlide As Object, objShape As Object
Dim lngRow As Long

Set objPPT = CreateObject("Powerpoint.Application")

With objPPT
    .Visible = True
    .Presentations.Open "F:\Temp\test.ppt", msoFalse
    For Each objSlide In .ActivePresentation.slides
        For Each objShape In objSlide.Shapes
            lngRow = lngRow + 1
            Cells(lngRow, 1) = objShape.TextFrame.TextRange.Text
        Next
    Next
    .Quit
End With


Set objPPT = Nothing

End Sub


Gruß Sepp



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige