如何编写一个“堆叠”图形的PowerPoint VBA宏？

Sub CreateStackedShape()
    Dim slide As Slide
    Dim shape As Shape
    
    ' 获取当前幻灯片对象
    Set slide = ActivePresentation.Slides(1)
    
    ' 创建一个矩形形状作为堆叠图形的容器
    Set shape = slide.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 200)
    shape.Fill.ForeColor.RGB = RGB(255, 255, 255) ' 设置形状的填充颜色为白色
    
    ' 创建并堆叠其他形状
    slide.Shapes.AddShape(msoShapeRectangle, 125, 125, 50, 50).Fill.ForeColor.RGB = RGB(255, 0, 0) ' 红色
    slide.Shapes.AddShape(msoShapeRectangle, 150, 150, 50, 50).Fill.ForeColor.RGB = RGB(0, 255, 0) ' 绿色
    slide.Shapes.AddShape(msoShapeRectangle, 175, 175, 50, 50).Fill.ForeColor.RGB = RGB(0, 0, 255) ' 蓝色
End Sub