如何在Powerpoint中使用VBA调整第二张图片的大小？

Sub AdjustSecondImageSize()
    Dim slide As Slide
    Dim shape As Shape
    Dim count As Integer
    
    ' 设置要调整大小的图片索引
    count = 2
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 检查幻灯片中的每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为图片
            If shape.Type = msoPicture Then
                ' 检查是否为第二张图片
                If count = 1 Then
                    ' 调整图片大小
                    shape.LockAspectRatio = msoFalse
                    shape.Width = 400  ' 设置图片宽度
                    shape.Height = 300 ' 设置图片高度
                    Exit Sub
                Else
                    count = count - 1
                End If
            End If
        Next shape
    Next slide
End Sub