change image position and size in ppt

Sub a1()

ActiveWindow.Selection.ShapeRange.Width = 495.5

'ActiveWindow.Selection.ShapeRange.Height = 364.25

ActiveWindow.Selection.ShapeRange.Left = 19.87504

ActiveWindow.Selection.ShapeRange.Top = 135.5

'495.5

'364.25

'19.87504

'135.5

End Sub

 

Sub a2()

    MsgBox (ActiveWindow.Selection.ShapeRange.Width & " / " & ActiveWindow.Selection.ShapeRange.Height & " / " & ActiveWindow.Selection.ShapeRange.Left & " / " & ActiveWindow.Selection.ShapeRange.Top)

End Sub