VBA Powerpoint调整具有特定名称的形状大小

Sub AdjustShapeSize()
    Dim slide As Slide
    Dim shape As Shape
    Dim shapeName As String
    
    ' 设置要调整大小的形状的名称
    shapeName = "Shape1"
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状的名称是否匹配
            If shape.Name = shapeName Then
                ' 调整形状的大小
                shape.Width = 200
                shape.Height = 100
                Exit For ' 找到匹配的形状后退出循环
            End If
        Next shape
    Next slide
End Sub