Sub growme()
Dim shp As Shape
For Each shp In Application.ActivePresentation.Slides(1).Shapes
Debug.Print shp.Height
Debug.Print shp.Width
shp.Height = shp.Height * 2
' shp.Width = shp.Width * 2
Next
For Each shp In Application.ActivePresentation.Slides(1).Shapes
Debug.Print shp.Height
Debug.Print shp.Width
Next
End Sub
|