PowerPoint VBA:如何对幻灯片上的所有对象进行分组(不能分组的对象除外)并调整组的大小

Sub GroupAndResizeObjects()
    Dim slide As Slide
    Dim shape As Shape
    Dim groupShape As ShapeRange
    
    ' 循环遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 循环遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否可以分组
            If shape.Type <> msoGroup Then
                ' 创建一个新的组形状
                Set groupShape = slide.Shapes.Range(Array(shape.Name)).Group
                ' 调整组形状的大小
                groupShape.LockAspectRatio = msoFalse ' 可以调整宽高比
                groupShape.Width = 200 ' 设置宽度
                groupShape.Height = 100 ' 设置高度
            End If
        Next shape
    Next slide
End Sub