Undergrowme ()
Dunkel shp som Shape
För varje shp i Application.ActivePresentation.Slides (1). Shapar
Debug.Print-shp. Höjd
Debug.Print-shp. Bredd
shp. Höjd = shp. Höjd * 2
' shp. Bredd = shp. Bredd * 2
Därefter
För varje shp i Application.ActivePresentation.Slides (1). Shapar
Debug.Print-shp. Höjd
Debug.Print-shp. Bredd
Därefter
Avsluta suben
|