How can I create a regular hexagon using PowerPoint?

An equally accurate result without VBA is obtained, when I use the 'Size and Position' dialog from the context menu. The height must be sin(60)*width, this gets me a good regular hexagon.

To get a regular hexagon in PowerPoint, create a hexagon using shift, then run the following VBA command with that hexagon selected:

activeWindow.Selection.ShapeRange(1).Adjustments(1) = 0.28706

After I created the approximate shape using the overlay on the close-but-not-quite equilateral triangle, I decided to get programmatic. I used some VBA to check what the position of the handle was (with the hexagon selected):

?activeWindow.Selection.ShapeRange(1).Adjustments(1) 

The value for the close-but-not-quite hexagon was .28002, so I started fiddling around and trying to do math assuming that this value was somehow based on angles. It isn't. I tried setting it to .28 -- that doesn't work either.

So I set it to the furthest left it could go (turning the hexagon into a square) and the value was 0. Then I tried setting it as far right (turning the hexagon into a diamond) and got .57412. Given the starting value of the close-but-not-quite hexagon of .28002, and my many attempts to get it right with none of them working, I tried taking half of .57412, which was .28706, and lo and behold, that was the magic number.

Found an easier method on creating a perfect Hexagon: In PowerPoint, First Create a Perfect Circle: Eg 4cm x 4cm Now create a Hexagon on top of the Circle and resize till all edges "snaps" to the Circle: Perfect Hexagon

Or Use the Following on any Hexagon: Height 4cm x Width 4.46cm. Then "Lock Aspect Ratio" to resize.