Feld/Objekt in PowerPoint ansprechen/befüllen
17.10.2018 22:38:35
Anna
ich habe in Excel ein Makro das mir ein ppt-Template öffnet. Nun möchte ich dass sich bestimmte "Textfelder" in PowerPoint befüllen und zwar mit aktuellem Datum (auf Titelseite) und Fußzeile in jeder weiteren Folie. Ich habe bis jetzt herausgefunden, dass ich über den Auswahlbereich die einzelnen "Textfelder" in ppt benennen kann. Wie kann ich es nun bewerkstelligen, dass sich z.B. Textfeld1 in ppt mit dem Wert befüllt der in der Excel Arbeitsmappe in Zelle C5 steht und anschließend auf jedem weiteren Folienblatt?
Mein Ansatz bisher:
Sub test1()
Dim oPPTApp As PowerPoint.Application
Dim oPPTShape As PowerPoint.Shape
Dim oPPTFile As PowerPoint.Presentation
Dim SlideNum As Integer
Dim strPresPath As String, strExcelFilePath As String, strNewPresPath As String
strPresPath = "C:\Users\Desktop\Vorlage\Template.pptx" 'Hier den Pfad, wo Template liegt
strNewPresPath = "C:\Users\Desktop\Vorlage\TemplateCopy.pptx" 'Hier Pfad, wo fertige PPP- _
Datei hin soll
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)
ActivePresentation.Slides(1).Shapes("Textfeld1"), Sheets("Tabelle1).Range("C5").Value, oPPTFile
End Sub