Hallo,

ich programmiere gerade ein Makro in den automatisch Bilder in verschiedenen Powerpoint Folien eingefügt werden, 

allerdings verdecken die Bilder Textfelder und Formen.

Mit welchem Code schaffe ich es die Bilder in den Hintergrund zu setzen und wo genau muss ich diesen einbauen?

Hier mein Code:

Sub Bild ()

    Dim objShape As Shape, objSlide As Slide

    Dim Auswahl As Variant

    Dim i As Integer


    Set objSlide = ActivePresentation.Slides(2) 

    With Application.FileDialog(msoFileDialogFilePicker)

        .Title = "Bitte Grafik auswählen"

        .InitialFileName = "C:\Windows\Benutzer\Anlagen\Bild1"  

        If .Show = -1 Then

            Auswahl = .SelectedItems(1)
        Else

            Exit Sub

        End If

    End With

   

    Set objShape = objSlide.Shapes.AddPicture(FileName:=Auswahl, LinkToFile:=msoFalse, _

SaveWithDocument:=msoTrue, _

            Left:=20, Top:=120, Width:=-1, Height:=-1)  'Position'

    With objShape

        .LockAspectRatio = msoTrue

        If .Height > 30 Then    'Höhe'

            .Height = 300

        End If

Dankeschön für eure Hilfe :)