Um resultado igualmente preciso sem o VBA é obtido quando uso o diálogo 'Tamanho e posição' no menu de contexto. A altura deve ser sin(60)*width
, isso me dá um bom hexágono regular.
Eu quero criar um hexágono regular em que cada lado tenha exatamente o mesmo tamanho.
Primeiro, tentei desenhar um hexágono usando shift, mas não era normal (veja o que acontece quando eu o giro em 60 graus):
Então eu imaginei que eu poderia criar um desenhando 6 triângulos equiláteros com deslocamento e, em seguida, movendo-os para a posição. Infelizmente, eles não se encaixam perfeitamente, e na verdade são 6 formas separadas, o que significa que não posso adicionar um esboço sem que eles pareçam estranhos:
Então eu tentei fazer um hexágono usando o deslocamento que é a mesma altura que o meu hexágono triangular, e depois usando a alça amarela para ajustá-lo corretamente para que correspondesse aos ângulos internos do triângulo. Isso também não funcionou perfeitamente desde que eu estava voando, e embora muito perto, não era perfeito também. Fazer uma pesquisa no google também não ajudou muito.
Então, como você pode criar um hexágono regular no PowerPoint?
Para obter um hexágono regular no PowerPoint, crie um hexágono usando shift e execute o seguinte comando VBA com o hexágono selecionado:
activeWindow.Selection.ShapeRange(1).Adjustments(1) = 0.28706
Depois que criei a forma aproximada usando a sobreposição no triângulo equilátero próximo, mas não totalmente equilibrado, decidi fazer uma programação. Eu usei alguns VBA para verificar qual era a posição da alça (com o hexágono selecionado):
?activeWindow.Selection.ShapeRange(1).Adjustments(1)
O valor para o hexágono próximo, mas não bastante, era .28002, então comecei a mexer e tentar fazer a matemática, supondo que esse valor fosse de alguma forma baseado em ângulos. Não é. Eu tentei configurá-lo para 0,28 - isso não funciona.
Então eu coloquei o mais distante possível (transformando o hexágono em um quadrado) e o valor foi 0. Então eu tentei defini-lo o mais para a direita (transformando o hexágono em um diamante) e obtive 0,57412. Dado o valor inicial do hexágono próximo, mas não completamente, de .28002, e minhas muitas tentativas para acertar com nenhum deles funcionando, eu tentei tirar metade de 0,57412, que foi 0,28706, e eis que, esse era o número mágico.
Um hexágono regular tem uma relação largura / altura de 2 / sqr (3). O primeiro canto, o superior esquerdo, está a 25% da largura. Assim, achamos os Ajustes (1), que é o ponto em que a Microsoft determina onde colocar o ponto de canto, pois o hexágono deve ser 0,25, mas não. A Microsoft tem o ponto em h / w * p, o que significa que a proporção só será válida se a razão w / h for 1, o que não é, é 2 / sqr (3). Então você tem que ajustar os ajustes (1) por este deslocamento.
Como sugerido por jmac, eu também recomendo usar vb-editor, não alterando larguras ou alturas, pois isso não corrigirá a posição falsa do ponto de canto, que você verá quando girar o hexágono e se juntar a outros hexágonos semelhantes. Independentemente se você desenhar o hexágono com ou sem o deslocamento, o seu hexágono precisa ser ajustado no canto.
Selecione seu hexágono, pressione Alt + F11 (abre o vb-editor), pressione Ctrl + G (abre a janela Imediata). Colar
ActiveWindow.Selection.ShapeRange (1) .Ajustes (1) = 1 / sqr (12)
e pressione enter.
Isto corrige o hexágono para um hexágono regular que pode ser girado para qualquer múltiplo de ângulo de 60 graus e encaixar junto com hexágonos com correspondência perfeita.
O 1 / sqr (12) vem do fato de que o 0.25 tem que ser ajustado para a razão 2 / sqr (3), então (1/4) * (2 / sqr (3)) = 1 / sqr (12).
P3
Encontrou um método mais fácil para criar um hexágono perfeito: No PowerPoint, primeiro crie um círculo perfeito: por exemplo, 4cm x 4cm Agora crie um hexágono no topo do círculo e redimensione até que todas as bordas "se encaixem" no círculo: hexágono perfeito
Ou use o seguinte em qualquer hexágono: Altura 4cm x Largura 4,46cm. Em seguida, "Bloquear Proporção" para redimensionar.
Tags microsoft-powerpoint