PowerPoint проверка программы которая создает текстовое поле на слайде и выравнивает его

Dim A As PowerPoint.Presentation
Public Sub n4()
Set A = ActivePresentation.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 500, 200)
With A
With .TextFrame.TextRange.Text = "Свобода либералам"
With .ParagraphFormat
.Alignment = ppAlignLeft
.Bullet = msoTrue
End With
With .Font
.Bold = msoTrue
.Name = "arial"
.Size = 38
End With
End With
.Width = .TextFrame.TextRange.BoundWidth
.Height = .TextFrame.TextRange.BoundHeight
.Left = (SlideWidth - .Width) / 2
.Top = ((newslide.Shapes("heading").Height + SlideHeight - .Height) / 2)
End With
End With
End Sub

Dim A As Shape ' а не As PowerPoint.Presentation
Public Sub n4()
    Set A = ActivePresentation.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 500, 200)
    With A
        With .TextFrame.TextRange  ' Объект не .TextFrame.TextRange.Text = "Привет"
            .Text = "Привет"
            With .ParagraphFormat
                .Alignment = ppAlignLeft
                .Bullet = msoTrue
            End With
            With .Font
                .Bold = msoTrue
                .Name = "arial"
                .Size = 38
            End With
        End With
        .Width = .TextFrame.TextRange.BoundWidth
        .Height = .TextFrame.TextRange.BoundHeight
        ' Переменные не объявлены и равны 0:
        ' newslide =0
        ' SlideHeight =0
        ' SlideWidth =0
        .Left = (ActiveWindow.Width - .Width) / 2
        '' 2 объекта не существует:
        ' объект newslide неопределен, надо использовать ActivePresentation.Slides(1)
        ' у меня на слайде нет  фигуры с именем "heading", есть "Заголовок 1"
        .Top = ((ActivePresentation.Slides(1).Shapes("Заголовок 1").Height + ActiveWindow.Height - .Height) / 2)
        ''End With ' Лишнее
    End With
End Sub