Triangles in Basic Shapes

[Felix]

With Basic Shapes (Triangle) I can draw all types of triangles, except obtuse
ones... Why is that?

 

[Gary''s Student]

Hi Felix:

From the Basic Shapes grab the isosceles triangle and put it on your sheet.

Click on the triangle. You can then stretch it out into an obtuse form by
grasping a grab point and dragging.

Have fun !

 

[Felix]

This is what I tried, but if move the yellow grab poit I can only streck it
as far as a rightangled triangle

 

[Gary''s Student]

Hi Felix:

Here is a macro that will make it automatically:


Sub Macro1()
Range("G11").Select
With ActiveSheet
..Shapes.AddShape(msoShapeIsoscelesTriangle, 267.75, 234.75, 87#, 88.5).Select
..Shapes(1).Select
End With
Selection.ShapeRange.ScaleWidth 4.09, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.97, msoFalse, msoScaleFromTopLeft
Range("G12").Select
End Sub


Open a new spreadsheet, install the macro and run it.