Laufzeitfehler 429 - ActiveX-Komponente
19.05.2021 12:26:13
Jascha
ich habe mal wieder eine Frage, ich suche mir schon seit Tagen einen Wolf und komme nicht auf die Lösung.
Ich möchte Überschriften in Powerpoint-Folien erstellen durch Zuweisung des Textfeldes der PP-Überschrift (über Start -> Bearbeiten -> Markieren -> Auswahlbereich: "Titel 1") zu einer Zelle in Excel.
Also soll bspw. der Text in der Excel-Zelle "A1" zur Überschrift der Powerpoint-Folie 3 werden.
Nur kommt dann ein Laufzeitfehler "429 - Objekterstellung durch ActiveX-Komponente nicht möglich".
Im VBA-Editor habe ich unter Extras/ Verweise u.a. die" Powerpoint-" & "Excel 16.0 Object Library" markiert.
Woran hängts?
Bzw. gibt es einen Code, mit dem man das Problem umgehen kann?
LG und danke im Voraus!
Sub Daten_ausExcel_holen()
'Werte aus Exceldatei holen und in PowerPoint Textfeldern zuweisen
Dim wb As Workbook, wks As Worksheet
Dim Folie As Slide, Textfeld As Shape
Dim ppapp As Object
Dim pres As PowerPoint.Presentation
Set ppapp = New PowerPoint.Application
'Es geht um diese Powerpoint, in der ich die Überschriften im Bereich "Titel 1" anpassen will
'ich öffne sie bewusst nicht, ist aber kein Muss
Set pres = ppapp.Presentations.Open(Filename:="C:\....\.pptx", _
Untitled:=msoTrue, _
WithWindow:=msoFalse)
'Exceldatei öffen und Tabellenblatt, in dem die Daten sind, die zum Titel werden sollen, zuweisen
Set wb = Workbooks.Open(Filename:="C:\...\.xlsm", ReadOnly:=True)
Set wks = wb.Worksheets("Tabelle1") '
'Textfeldern in PowerPoint Folien Werte aus der Exceldatei zuweisen
'in der folgenden Zeile kommt die Fehlermeldung
Set Folie = ActivePresentation.Slides(3)
Set Textfeld = Folie.Shapes("Titel 1") '