居中最上方的文本框架VBA powerpoint

Sub AddCenteredTextBox()
    Dim slide As Slide
    Dim textBox As Shape
    
    ' 获取当前幻灯片
    Set slide = ActivePresentation.Slides(1)
    
    ' 添加文本框架
    Set textBox = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, slide.Width, slide.Height * 0.2)
    
    ' 设置文本框架的位置和对齐方式
    textBox.Top = 0
    textBox.Left = (slide.Width - textBox.Width) / 2
    textBox.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
    
    ' 设置文本框架的样式和内容
    textBox.TextFrame.TextRange.Font.Name = "Arial"
    textBox.TextFrame.TextRange.Font.Size = 24
    textBox.TextFrame.TextRange.Text = "这是一个居中最上方的文本框架"
End Sub