Sub growme ()
Тусклый shp как форма
Для каждого shp в Application.ActivePresentation.Slides (1).Shapes
Shp Debug.Print. Высота
Shp Debug.Print. Ширина
shp. Высота = shp. Высота * 2
' shp. Ширина = shp. Ширина * 2
Затем
Для каждого shp в Application.ActivePresentation.Slides (1).Shapes
Shp Debug.Print. Высота
Shp Debug.Print. Ширина
Затем
Подводная лодка конца
|