Shapes (Shape) Adjustments |
Contém uma coleção de valores de ajuste para o objeto WordArt, AutoShape ou conector especificado. Cada valor de ajuste representa uma maneira pela qual uma alça de ajuste pode ser ajustada. Como algumas alças de ajuste podem ser ajustadas de duas maneiras — por exemplo, algumas alças podem ser ajustadas tanto horizontal quanto verticalmente — uma forma pode ter mais valores de ajuste do que alças de ajuste. Uma forma pode ter até oito ajustes.
Usando o objeto Adjustments
Use a propriedade Adjustments para retornar um objeto Adjustments. Use Adjustments(index), onde index é o número de índice do valor de ajuste, para retornar um único valor de ajuste.
Formas diferentes têm números diferentes de valores de ajuste, tipos diferentes de ajuste alteram a geometria de uma forma de maneira diferente, e tipos diferentes de ajustes têm intervalos diferentes de valores válidos. Por exemplo, a ilustração seguinte mostra em que cada um dos quatro valores de ajuste para a seta direita de um texto explicativo contribui para a definição da geometria do texto explicativo.
Observação Como cada forma ajustável tem um conjunto de ajustes diferente, a melhor maneira de verificar o comportamento de ajuste de uma determinada forma é criar manualmente uma instância da forma, fazer ajustes com o gravador de macro ativado e examinar o código gravado.
A tabela seguinte resume os intervalos de valores de ajuste válidos para diferentes tipos de ajustes. Na maioria dos casos, quando você especifica um valor além do intervalo de valores válidos, o valor válido mais próximo é atribuído ao ajuste.
| Tipo de ajuste | Valores válidos |
|---|---|
| Linear (horizontal ou vertical) | Geralmente, o valor 0,0 representa a extremidade esquerda ou superior da forma e o valor 1,0 representa a extremidade direita ou inferior da forma. Os valores válidos correspondem aos ajustes válidos que você pode fazer manualmente à forma. Por exemplo, se você só pode puxar manualmente uma alça de ajuste até metade do caminho da forma, o valor máximo do ajuste correspondente será 0,5. Para formas tais como conectores e textos explicativos, onde os valores 0,0 e 1,0 representam os limites do retângulo definido pelo pontos iniciais e finais do conector ou linha de texto explicativo, números negativos e números maiores que 1,0 são valores válidos. |
| Radial | Um valor de ajuste de 1,0 corresponde à largura da forma. O valor máximo é 0,5, ou a meio caminho da forma. |
| Ângulo | Os valores são expressos em graus. Quando você especifica um valor fora do intervalo de – 180 até 180, ele é normalizado para se situar dentro desse intervalo. |
O exemplo seguinte adiciona um texto explicativo com seta para a direita a myDocument e define valores de ajuste para o texto explicativo. Observe que, embora a forma tenha somente três alças de ajustes, ela tem quatro ajustes. Os ajustes três e quatro correspondem ambos à alça entre a ponta e a linha da seta.
Set myDocument = Worksheets(1)
Set rac = myDocument.Shapes.AddShape(msoShapeRightArrowCallout, _
10, 10, 250, 190)
With rac.Adjustments
.Item(1) = 0.5 'adjusts width of text box
.Item(2) = 0.15 'adjusts width of arrow head
.Item(3) = 0.8 'adjusts length of arrow head
.Item(4) = 0.4 'adjusts width of arrow neck
End With
