我想创建一个正六边形每边的长度完全相同。
首先，我尝试使用 shift 绘制一个六边形，但它并不规则（看看当我将其旋转 60 度时会发生什么）：
因此，我想我可以通过用 shift 绘制 6 个等边三角形，然后将它们移动到位来创建一个。不幸的是，它们不能完美地拼接在一起，它们实际上是 6 个独立的形状，这意味着我无法添加轮廓，否则它们看起来很奇怪：
然后我尝试使用 shift 制作一个六边形，高度与我的三角形六边形相同，然后使用黄色手柄适当调整它，使其与三角形的内角相匹配。由于我是即兴发挥，所以这个方法也不是完美的，虽然非常接近，但也不是完美的。谷歌搜索也没什么帮助。
那么如何在 PowerPoint 中制作正六边形？
答案1
当我使用上下文菜单中的“大小和位置”对话框时，无需 VBA 即可获得同样准确的结果。高度必须为sin(60)*width，这样我就可以得到一个很好的正六边形。
答案2
要在 PowerPoint 中获取正六边形，请使用 Shift 创建一个六边形，然后在选择该六边形的情况下运行以下 VBA 命令：
activeWindow.Selection.ShapeRange(1).Adjustments(1) = 0.28706
在我使用接近但不完全等边三角形上的覆盖层创建近似形状后，我决定进行编程。我使用了一些 VBA 来检查手柄的位置（选择了六边形）：
?activeWindow.Selection.ShapeRange(1).Adjustments(1)
接近但不完全是六边形的数值是 .28002，所以我开始摆弄并尝试进行数学运算，假设该值以某种方式基于角度。但事实并非如此。我尝试将其设置为 .28 — — 这也不起作用。
所以我将它设置为最左边（将六边形变成正方形），值为 0。然后我尝试将它设置为最右边（将六边形变成菱形），结果为 .57412。考虑到接近但不完全接近的六边形的起始值为 .28002，我多次尝试都无法得到正确的结果，我尝试取 .57412 的一半，即 .28706，瞧，这就是神奇的数字。
答案3
找到了一种创建完美六边形的更简单方法：在 PowerPoint 中，首先创建一个完美的圆形：例如 4cm x 4cm，现在在圆形上方创建一个六边形，并调整大小直到所有边缘都“捕捉”到圆形：完美六边形
或者在任何六边形上使用以下内容：高 4 厘米 x 宽 4.46 厘米。然后“锁定纵横比”调整大小。
答案4
正六边形的宽高比为 2/sqr(3)。第一个角，也就是左上角，位于宽度的 25%。因此，有人认为 Adjustments(1)（微软确定六边形角点的位置的点）应该是 0.25，但事实并非如此。微软将该点置于 h/w*p，这意味着只有当 w/h 比为 1 时，该比例才有效，但事实并非如此，它是 2/sqr(3)。因此，您必须根据此偏移量调整 Adjustments(1)。
根据 jmac 的建议，我还建议使用 vb-editor，不要更改宽度或高度，因为它不会纠正角点的错误位置，当您旋转六边形并与其他类似的六边形连接时，您会看到这一点。无论您是否按住 shift 绘制六边形，您的六边形都需要在其角设置处进行调整。
选择六边形，按 Alt+F11（打开 vb 编辑器），按 Ctrl+G（打开立即窗口）。粘贴
ActiveWindow.Selection.ShapeRange（1）。调整（1）= 1 / sqr（12）
然后按回车键。
这将六边形校正为正六边形，其可以旋转到 60 度角的任意倍数并与六边形完美匹配。
1/sqr(12) 来自于这样一个事实：0.25 必须根据 2/sqr(3) 比率进行调整，所以 (1/4) * (2/sqr(3)) = 1/sqr(12)。
P3