Creating a pyramid with three elements

[RandomGerman]

Hi all,

does anyone know how I can take control on the angles of my trapezoids? I want to build a real pyramid with three elements, you know, where the width of the top of the upper trapeziod is as a wide as the bottom of the triangle above.

Thanks for your ideas!

RG



Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(Type:=msoShapeIsoscelesTriangle, Left:=314.92894, Top:=132.0944, Width:=149.95266, Height:=102.04718)
shp.Fill.ForeColor.RGB = RGB(221, 221, 221)
shp.Line.ForeColor.RGB = RGB(255, 255, 255)
shp.Line.Weight = "0,75"

Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(Type:=msoShapeTrapezoid, Left:=240.09434, Top:=234.14158, Width:=299.90532, Height:=102.04718)
shp.Fill.ForeColor.RGB = RGB(221, 221, 221)
shp.Line.ForeColor.RGB = RGB(255, 255, 255)
shp.Line.Weight = "0,75"

Set sld = Application.ActiveWindow.View.Slide
Set shp = sld.Shapes.AddShape(Type:=msoShapeTrapezoid, Left:=168.09438, Top:=335.9053, Width:=443.90523, Height:=102.04718)
shp.Fill.ForeColor.RGB = RGB(221, 221, 221)
shp.Line.ForeColor.RGB = RGB(255, 255, 255)
shp.Line.Weight = "0,75"

[John Wilson]

shp.Adjustments(1)=?? (between 0 and 1)

[RandomGerman]

That's exactly it! Thank you so much, John!