Método Selection.Distribute (Visio)
Distribui três ou mais formas selecionadas em intervalos regulares na página de desenho. A ordem da seleção é irrelevante.
Sintaxe
expression. Distribute( _Distribute_ , _GlueToGuide_ )
Expressão Uma variável que representa um objeto Selection .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Distribute | Obrigatório | VisDistributeTypes | Especifica como as formas são distribuídas. Consulte Comentários para valores possíveis. |
| GlueToGuide | Opcional | Boolean | Se True, cria guias e cola formas selecionadas a elas. Se False, não faz isso. Padrão é False. |
Valor de retorno
Nada
Comentários
Os valores possíveis a seguir para Distribuir são declarados em VisDistributeTypes na biblioteca de tipos do Visio.
| Constant | Valor | Descrição |
|---|---|---|
| visDistHorzCenter | 2 | Distribui formas horizontalmente para que suas bordas inferiores fiquem uniformemente espaçadas. |
| visDistHorzLeft | 1 | Distribui formas horizontalmente para que suas bordas à esquerda fiquem uniformemente espaçadas. |
| visDistHorzRight | 3 | Distribui formas horizontalmente para que suas bordas à direita fiquem uniformemente espaçadas. |
| visDistHorzSpace | 0 | Distribui formas horizontalmente para que haja um espaço uniforme entre as formas. |
| visDistVertBottom | 7 | Distribui formas verticalmente para que suas bordas inferiores fiquem uniformemente espaçadas. |
| visDistVertMiddle | 6 | Distribui formas verticalmente para que suas bordas centrais fiquem uniformemente espaçadas. |
| visDistVertSpace | 4 | Distribui formas verticalmente para que haja um espaço uniforme entre as formas. |
| visDistVertTop | 5 | Distribui formas verticalmente para que suas bordas superiores fiquem uniformemente espaçadas. |
Chamar o método Distribuir é equivalente a opções de configuração na caixa de diálogo Distribuir Formas (na guia Página Inicial , clique em Posição, aponte para Formas de Espaço e clique em Mais Opções de Distribuição).
Passar True para o argumento opcional GlueToGuide equivale a marcar a caixa de seleção Criar guias e associar formas nestas na caixa de diálogo Distribuir Formas.
Quando você passa True para GlueToGuide, o Visio cria guias para reter a distribuição das formas. Você pode selecionar e mover as guias mais externas para mover as formas sem alterar sua distribuição.
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método Distribute para distribuir três formas verticalmente para que suas bordas à direita fiquem uniformemente espaçadas e coladas às guias.
Public Sub Distribute_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoShape3 As Visio.Shape
Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7)
Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5)
Set vsoShape3 = Application.ActiveWindow.Page.DrawRectangle(6, 4, 8, 2)
ActiveWindow.DeselectAll
ActiveWindow.Select vsoShape1, visSelect
ActiveWindow.Select vsoShape2, visSelect
ActiveWindow.Select vsoShape3, visSelect
Application.ActiveWindow.Selection.Distribute visDistVertRight, True
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.