Can I draw triangles using VBA

[Anthraquinone]

I know this has been done before but just to keep my mind active in retirement I have decided to program excel to calculate the properties of a triangle given three sides or two sides and an angle etc. etc.

I now want to draw that triangle on the worksheet - I want it to be the correct shape. It is easy to calculate the co-ordinates of the three corners in terms of X and Y as you would plot on graph paper.

What I am looking for is how to translate that into vba code. Code like this

With myDocument.Shapes.AddLine(10, 10, 250, 250).Line

would appear to be one way of doing it but how would I convert the co-ordinates of the triangle into "points" that the above command requires. It is possible to define the origin that the "points" use or is it always in the top left corner of the work sheet.

AQ

[jolivanes]

One way would be to calculate start end end points and use them.

Please Login or Register  to view this content.

Add a starting minimum for each left and top. (Values in certain Cells maybe)
Select all three and group if you want to make a single shape.

[jolivanes]

Another way.
Cell N1 has a starting point from left.
Cell O1 has a starting point from the top
Cell I10 has the length from left to right
Cell J10 has the length up and down

Please Login or Register  to view this content.

[MrShorty]

Are you required to use a shape or drawing type of object? I would be inclined to do this kind of thing on an XY scatter chart.

1) Calculate the X,Y coordinates of the triangle's corners from the triangle properties.
2) Insert a scatter chart using the X and Y ranges (remember that you need to have the starting point also at the end in order to close the triangle).
3) Format the scatter chart the way you want it to look.

[Anthraquinone]

Thank you for the suggestions. I will look at them both and see which will do what I want the best. I would never have thought of using a chart for this.

Re the idea

Sub MacroTest()
ActiveSheet.Shapes.AddLine(250#, 200#, 300#, 300#).Name = "Side1"
ActiveSheet.Shapes.AddLine(200#, 300#, 300#, 300#).Name = "Side2"
ActiveSheet.Shapes.AddLine(250#, 200#, 200#, 300#).Name = "Side3"
End Sub

That is more or loess what I was planning on using but I then came across the problem of converting the triangle co-ordinates say (0,0) (0, 12), (8.5, 13.25) into points to use in this formula. O could not find a procedural way of doing this only trial and error. I will have one point at the origin, one side on th ex axis and one somewhere above. As in my example. The point o, o will be somewhere in the middle of the spread sheet.

I am progressing with this and will have to do a bit more work



AQ

[jolivanes]

Re: The point o, o will be somewhere in the middle of the spread sheet.
No, everything start from the left of your sheet (=0) and the top of your sheet (=0)
The suggestion to add a starting minimum for each left and top. (Values in certain Cells maybe) will start from both these values.
Your 0, 0 will start from these values.