Posteriormente a indagar en diferentes repositorios y sitios finalmente encontramos la solución que te mostraremos a continuación.
Solución:
Se obtiene un resultado igualmente preciso sin VBA cuando uso el cuadro de diálogo ‘Tamaño y posición’ del menú contextual. La altura debe ser sin(60)*widthesto me da un buen hexágono regular.
Para obtener un hexágono regular en PowerPoint, cree un hexágono usando shift, luego ejecute el siguiente comando de VBA con ese hexágono seleccionado:
activeWindow.Selection.ShapeRange(1).Adjustments(1) = 0.28706
Después de crear la forma aproximada usando la superposición en el triángulo equilátero cercano pero no del todo, decidí ser programático. Usé algo de VBA para verificar cuál era la posición del mango (con el hexágono seleccionado):
?activeWindow.Selection.ShapeRange(1).Adjustments(1)
El valor para el hexágono cercano pero no del todo era .28002, así que comencé a jugar e intentar hacer matemáticas asumiendo que este valor se basaba de alguna manera en los ángulos. no lo es Intenté configurarlo en .28, eso tampoco funciona.
Así que lo configuré lo más a la izquierda posible (convirtiendo el hexágono en un cuadrado) y el valor fue 0. Luego intenté configurarlo lo más a la derecha (convirtiendo el hexágono en un diamante) y obtuve .57412. Dado el valor inicial del hexágono cercano pero no del todo de .28002, y mis muchos intentos de hacerlo bien sin que ninguno funcionara, traté de tomar la mitad de .57412, que era .28706, y he aquí, ese era el número mágico.
Encontré un método más fácil para crear un hexágono perfecto: en PowerPoint, primero cree un círculo perfecto: por ejemplo, 4 cm x 4 cm Ahora cree un hexágono en la parte superior del círculo y cambie el tamaño hasta que todos los bordes se ajusten al círculo: hexágono perfecto
O utilice lo siguiente en cualquier hexágono: 4 cm de alto x 4,46 cm de ancho. Luego, “Bloquear relación de aspecto” para cambiar el tamaño.
Si te apasiona este mundo, tienes la libertad de dejar un enunciado acerca de qué te ha impresionado de esta reseña.