Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige