Macro to change isoceles triangle??!?

[Ozzieextreme]

Afternoon all, hope you are well...

I'm wondering if it is possible to have a macro that can automatically alter the shape of an isoceles triangle in Excel based on user inputs...

e.g. if data in cells corresponds to the sides and angles of the triangle, then when the macro is run, the triangle is drawn to match... Hope this makes sense!?

Basically I want to make a macro change a triangle from this... (see below):

To this... (See below):

Please also note that this is NOT a flipped image, and that this triangle has different internal angles and side lengths to the previous one...

If there's some sort of code that can alter shapes in excel, that would be ace!!

Sorry for the long thread and HUGE triangles!

Any help would be really appreciated!

Cheers guys!

Oz

 

[MickG]

Hi, Draw your Triangle with the first code then adjust angle by changing Angle ( 0 to 90) in cell "A2" and running second code.
NB:- Change "Autoshape" name in second code to match your triangle name.
Alter details tio suit.

Private Sub CommandButton3_Click()
 ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 50, 100#, 200, 140#).Select
End Sub

Private Sub CommandButton4_Click()
Dim angle As Integer, n
angle = [a2]
n = Tan(angle * Application.Pi() / 180) / 2
ActiveSheet.Shapes("Autoshape 85").Adjustments.Item(1) = n
End Sub

Mick

 

[Ozzieextreme]

Mick, you are a superstar! That works a treat!

Thanks!

Oz