Sub ChangeDimensionsOfSelectedShape()
    Dim oshp   As Shape
    Dim newWidth As Integer
    Dim newHeight As Integer

    ' Set the new dimensions
    newWidth = 100 ' these do nothing
    newHeight = 50 ' these do nothing

    'set osld to currenht slide
    Set oshp = ActiveWindow.Selection.ShapeRange(1)
    With oshp
        ' Change the dimensions of the shape
        .Width = 930
        .Height = 428
        .Left = 15
        .Top = 77
    End With
End Sub