Powerpoint Textfeld per VBA auslesen

  • Sonstige

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    TextFrame.TextRange.Text

    Hab im Netz folgendes Beispiel gefunden:

    Visual Basic-Quellcode

    1. Sub Daten_ausExcel_holen()
    2. 'Werte aus Exceldatei holen und in PowerPoint Textfeldern zuweisen
    3. 'Im PP-VBA-Editor under Menü Extras-->Verweise "Microsoft Excel xx.yy Object Library" _
    4. aktivieren!
    5. Dim wb As workbook, wks As Worksheet
    6. Dim Folie As Slide, Textfeld As Shape
    7. 'Exceldatei öffen und Tabellenblatt zuweisen
    8. Set wb = Workbooks.Open(FileName:="C:\Test\TestDatei.xls", ReadOnly:=True)
    9. Set wks = wb.Worksheets("Tabelle1")
    10. 'Textfeldern in PowerPoint Folien Wete aus der Exceldatei zuweisen
    11. Set Folie = ActivePresentation.Slides(1)
    12. Set Textfeld = Folie.Shapes("Text Box 6")
    13. Textfeld.TextFrame.TextRange.Text = wks.Range("A1").Text
    14. Set Folie = ActivePresentation.Slides(2)
    15. Set Textfeld = Folie.Shapes("Text Box 4")
    16. Textfeld.TextFrame.TextRange.Text = wks.Range("A5").Text
    17. '
    18. Exceldatei schliessen
    19. wb.Close savechanges:=False
    20. End Sub
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau
    Das kenn ich. Aber danke. Mein Problem war folgendes

    Visual Basic-Quellcode

    1. Set Folie = ActivePresentation.Slides(1)
    2.     Set Textfeld = Folie.Shapes("Text Box 6")
    3.     Textfeld.TextFrame.TextRange.Text = wks.Range("A1").Text


    Slides darf nicht festgelegt sein sondern muss die aktuelle sein auf der sich der Button befindet. Das Textfeld existiert schon und ich kann es nicht ansprechen. Ich will kein neues generieren, sondern ein schon vorhandenes beschreiben, bzw. auslesen.