Sub AddRoundedRectangleCurrentCenter()

    Dim slide As Slide

    ' 获取当前正在编辑的幻灯片

    Set slide = ActiveWindow.View.Slide

    Dim shp As Shape

    ' 先随意指定坐标生成形状

    Set shp = slide.Shapes.AddShape( _

        Type:=msoShapeRoundedRectangle, _

        Left:=0, Top:=0, _

        Width:=200, Height:=100)

    ' 计算幻灯片尺寸并让形状水平和垂直居中

    With ActivePresentation.PageSetup

        shp.Left = (.SlideWidth - shp.Width) / 2

        shp.Top = (.SlideHeight - shp.Height) / 2

    End With

    ' 调整圆角大小

    shp.Adjustments.Item(1) = 0.2

    ' 写入文本

    shp.TextFrame.TextRange.Text = "圆角矩形"

    ' 设置文本居中和字体大小

    With shp.TextFrame

        .VerticalAnchor = msoAnchorMiddle

        With .TextRange

            .ParagraphFormat.Alignment = ppAlignCenter

            .Font.Size = 24

        End With

    End With

End Sub