Hello, everyonePlease help to create:
1. Equilateral triangle. How do I describe a circle around it so that it passes through the three vertices?2. Circle. How to inscribe an equilateral triangle in a circle?
Without and with VBA code
Greetings!
Sub TRIANGLEINELLIPSE() Dim s As Shape, s1 As Shape Set s = ActiveShape Set s1 = ActiveLayer.CreatePolygon2(s.PositionX, s.PositionY, s.SizeWidth / 2, 3) s1.CenterX = s.CenterX s1.TopY = s.TopYEnd Sub
Funny, I've been working on this too. I like the macro you've provided. It's off a bit but probably due to infinite decimal amount. I was actually trying to go the other way around though.
EllipseToTriangle - given an equilateral triangle.
Zooming in after using the macro I get this. Using the Smart Fill Tool won't get the expected outcome.