Sub ChangeDimensionsOfSecondShape()
    Dim osld As Slide
    Dim shapeIndex As Integer
    Dim newWidth As Integer
    Dim newHeight As Integer
    'Edit mode only!
    ' Set the new dimensions
    newWidth = 100
    newHeight = 50
'set osld to currenht slide
Set osld = ActiveWindow.Selection.SlideRange(1)
        ' Check if there are at least two shapes on the slide
        If osld.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 osld.Shapes(shapeIndex)
                ' Change the dimensions of the shape
                .Width = 930
                .Height = 428
                .Left = 15
                .Top = 77
            End With
        End If
End Sub