Powerpoint-Makro-center richten Sie ein einzelnes Textfeld zu schieben

Ich versuche, mich zu zentrieren, richten Sie die Textfelder in einer großen Präsentation. Jede Folie enthält verschiedene Formen, aber nur ein Textfeld mit text und ich möchte gerne das Textfeld ausgerichtet auf die Mitte der Folie. Im moment habe ich eine code-Zeile, damit der text zentriert ausgerichtet wird, im eigenen text box, aber ich Frage mich, ob es einen Weg, um das Textfeld in der Mitte der Folie?

    Sub TextSize()

    Dim oSl As Slide
    Dim oSh As Shape


    With ActivePresentation

For Each oSl In .Slides
    For Each oSh In oSl.Shapes
        With oSh
            If .HasTextFrame Then
                If .TextFrame.HasText Then
                    .TextFrame.TextRange.Font.Size = 26.5

                    ' change the code to make the text box centre aligned to the slide
                    .TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter


                End If
            End If
        End With
    Next
Next

    End With

    End Sub