Sub ChangeDimensionsOfSecondShape()
    Dim slideIndex As Integer
    Dim shapeIndex As Integer
    Dim newWidth As Integer
    Dim newHeight As Integer
    
    ' Set the new dimensions
    newWidth = 100
    newHeight = 50
    
'     .Height = 428
' .Width = 930
' .Left = 15
' .Top = 77
    ' Loop through all slides
    For slideIndex = 1 To ActivePresentation.Slides.Count
        ' Check if there are at least two shapes on the slide
        If ActivePresentation.Slides(slideIndex).Shapes.Count >= 2 Then
            ' Get the second shape on the slide
            shapeIndex = 2 ' Change this index if the second shape is not the desired one
            With ActivePresentation.Slides(slideIndex).Shapes(shapeIndex)
                ' Change the dimensions of the shape
                .Width = 930
                .Height = 428
                .Left = 15
                .Top = 77
            End With
        End If
    Next slideIndex
End Sub