Sub growme ()
Schemerige shp als Vorm
Voor Elke shp in Application.ActivePresentation.Slides (1). Vormen
Debug.Print shp. Hoogte
Debug.Print shp. Breedte
shp. Hoogte = shp. Hoogte * 2
' shp. Breedte = shp. Breedte * 2
Daarna
Voor Elke shp in Application.ActivePresentation.Slides (1). Vormen
Debug.Print shp. Hoogte
Debug.Print shp. Breedte
Daarna
Sub van het eind
|