Office: (Office 2016) Excel VBA --> In PowerPoint definiert ein Placeholder ansprechen

Hallo zusammen,

ich werde hier noch verrückt.
Mein Ziel ist es über Excel VBA eine PowerPoint zu füllen wobei ich zwei Placeholder habe die zwei unterschiedliche Bilder bekommen sollen.

Ich schaffe es einfach nicht ein gaaaaaannnnnz spezifisches PowerPoint Placeholder anzusprechen.
1) Nutze ich die ".Placeholders.FindByName" bekomme ich folgenden Fehler "Placeholders (unknown member) : Object does not exist"

2) Einen Text Placeholder kann per ".Name" ausfindig machen und dann per ".Shapes("ChangeDate").TextFrame.TextRange.Text = "Nu Aber" " direkt befüllen. Aber um ein Bild einzufügen klappt das leider nicht und man muss auf die ".Shapes.AddPicture" zurückgreifen und dabei geschiet etwas sehr seltsames.

... a) Wenn beide ElseIf Pfade bestehen wird jedes Bild in sein Placeholder eingefügt, also "strImagePath01" wird in Placeholder "Image1" und "strImagePath02" wird in Placeholder "Image2" eingefügt

... b) Wenn aber die ".AddPicture" für "strImagePath02" komplett auskommentiert wird das Bild "strImagePath01" in Placeholder "Image2" eingefügt.


Wie kann man nun einen Placeholder ganz bestimmt ansprechen???

Code:

            For Each pptShape In .Shapes
                Debug.Print pptShape.PlaceholderFormat.Type & " - "; pptShape.Name
                
                If pptShape.Name = ("Title") Then
                        .Shapes("Title").TextFrame.TextRange.Text = "VBA Test1"
                        
                    ElseIf pptShape.Name = ("Creator") Then
                        .Shapes("Creator").TextFrame.TextRange.Text = "VBA Test2"
                    
                    ElseIf pptShape.Name = ("ChangeDate") Then
                        .Shapes("ChangeDate").TextFrame.TextRange.Text = "Nu Aber"
                    
                    ElseIf pptShape.Name = ("Image1") Then
                        .Shapes.AddPicture _
                            Filename:=strImagePath01, _
                            LinkToFile:=False, _
                            SaveWithDocument:=True, _
                            Left:=0, _
                            Top:=0
                    
                    ElseIf pptShape.Name = ("Image2") Then
                        .Shapes.AddPicture _
                            Filename:=strImagePath02, _
                            LinkToFile:=False, _
                            SaveWithDocument:=True, _
                            Left:=0, _
                            Top:=0
                End If
            Next pptShape