如何使用 PowerPoint 创建正六边形？

Question

我想创建一个正六边形，其中每边的长度完全相同。

首先，我尝试使用 shift 绘制六边形，但它不规则（看看将其旋转 60 度时会发生什么）：

所以我想我可以通过绘制 6 个等边三角形，然后将它们移动到适当的位置来创建一个。不幸的是，它们不能完美地结合在一起，它们实际上是 6 个独立的形状，这意味着我无法在它们看起来很奇怪的情况下添加轮廓：

然后我尝试使用与我的三角形六边形相同高度的移位制作六边形，然后使用黄色手柄对其进行适当调整，使其与三角形的内角相匹配。这也不能完美地工作，因为我正在使用它，虽然非常非常接近，但它也不完美。做一个谷歌搜索没有帮助，所以尽管。

那么如何在 PowerPoint 中制作正六边形呢？

Answer 1

当我使用上下文菜单中的“大小和位置”对话框时，在没有 VBA 的情况下获得了同样准确的结果。高度必须是sin(60)*width，这让我得到了一个很好的正六边形。

Answer 2

要在 PowerPoint 中获得正六边形，请使用 shift 创建一个六边形，然后在选中该六边形的情况下运行以下 VBA 命令：

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

在使用接近但不完全等边三角形上的叠加创建近似形状后，我决定进行程序化。我使用了一些 VBA 来检查手柄的位置（选择了六边形）：

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

接近但不完全六边形的值是 0.28002，所以我开始摆弄并尝试做数学，假设这个值以某种方式基于角度。不是。我尝试将其设置为 0.28 - 这也不起作用。

所以我把它设置在最左边（把六边形变成正方形），值是 0。然后我试着把它设置在最右边（把六边形变成菱形），结果是 0.57412。考虑到 0.28002 的接近但不完全六边形的起始值，以及我多次尝试使其正确但它们都不起作用，我尝试取 0.57412 的一半，即 0.28706，瞧，那是神奇的数字。