View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.newusers
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Triangles in Basic Shapes

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.
--
Gary''s Student - gsnu200718


"Felix" wrote:

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


"Gary''s Student" wrote:

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 !
--
Gary''s Student - gsnu200718


"Felix" wrote:

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