Mit Excel-Makro Textfeld in PP ansteuern
16.03.2020 13:46:00
HerrVorragend
ich brauche mal wieder Hilfe bezüglich eines Excel Makros. Ich möchte aus Excel heraus eine _
PowerPoint erstellen und mit Inhalten befüllen. Zum Einen sollen Tabellen aus Excel auf PP- _ Folien übertragen werden (Das klappt schon ganz gut :) ). Zum Anderen sollen einzelne Inhalte aus Zellen in Excel ausgelesen und in bestimmt Textfelder in PP übertragen werden. Mein Problem ist, dass ich in PP nicht die bestimmten Textfelder ("Titelbox1", "Textplatzhalter1") ansprechen kann. Da bekomme ich immer die Fehlermeldung : Laufzeitfehler 5, Ungültiger Prozeduraufruf oder ungültiges Argument. Habe schon alles probiert und hoffe mir kann jemand helfen.
Sub CreatePowerPoint()
Dim oPPT As PowerPoint.Application
Dim oSlide As PowerPoint.Slide
Dim oPres As PowerPoint.Presentation
Dim oShape As Shape
Dim Filter As Range
Dim y As Integer ' für Autofilter
Dim i As Integer
Dim Pfad As String
Dim ppTLayout As CustomLayout
Dim shp As Shape
y = 1
i = 2
'PP-Vorlage öffnen
Set oPPT = New PowerPoint.Application
oPPT.Visible = msoTrue 'oder True
oPPT.Presentations.Open "C:\Users\SimeonPawelka\Desktop\MAPS VBA\Vorlage.potm"
'Titelfoto bearbeiten
Set oSlide = oPPT.ActivePresentation.Slides(1)
oSlide.Shapes("Titelbox") = Sheets("Overview").Cells("A3")
Set oSlide = oPPT.ActivePresentation.Slides(1)
oSlide.Shapes("Textplatzhalter1") = Sheets("Overview").Cells("A3")
------------------------------------------------------------------------------------------------ _
_
_
_
'----------------------------------------------------------------------------------------------- _
_
_
_
For y = 1 To 11
Set Filter = Sheets("Export Arbeitspakete").Range("TabExportAP")
Filter.AutoFilter Field:=1, Criteria1:=y '---> Schleife einbauen für Kriterium, dann wird Range _
_
_
_
nach Autofilter kopiert
Set ppTLayout = oPPT.ActivePresentation.Slides(2).CustomLayout ' --> definiert die Form der _
Folie, in welcher die nächste eingefügt werden soll
Set oSlide = oPPT.ActivePresentation.Slides.AddSlide(i, ppTLayout) '--> um neue Folie hinzuzufü _
_
_
_
gen
'Tabellen werden eingefügt
Set oSlide = oPPT.ActivePresentation.Slides(i) 'Foliennummer wird ausgewählt
Sheets("Export Arbeitspakete").Range("TabExportAP").Copy 'Der Bereich der in Excel kopiert _
werden soll
oSlide.Shapes.Paste 'Bereich wird auf ausgewählter Folie eingefügt
Filter.AutoFilter Field:=1
'Folienüberschriften werden generiert
Set oSlide = oPPT.ActivePresentation.Slides(i)
oSlide.Shapes.Range.TextFrame.TextRange.Text = Sheets("Export Inhaltsverzeichnis").Cells(i, 2). _
_
_
_
Text
i = i + 1
Next
Set oPPT = Nothing
End Sub
Vielen Dank im Voraus und schöne Grüße