RandomGerman
05-01-2015, 07:25 AM
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"
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"