Método Selection.Trim (Visio)
Corta formas selecionadas em formas menores.
Sintaxe
expression. Trim
Expressão Uma variável que representa um objeto Selection .
Valor de retorno
Nada
Comentários
Chamar o método Trim é equivalente a clicar em Aparar na interface de usuário do Microsoft Visio (clique em Operações no grupo Design da Forma na guia Desenvolvedor tab).
As novas formas herdam a formatação da primeira forma selecionada, não têm texto e são as formas mais altas em seu contêiner: a forma _n_th, _n_th - 1 forma, _n_th - 2 forma e assim por diante na coleção Shapes de sua forma contendo, onde n = contagem. As formas originais são excluídas e nenhuma forma é selecionada quando a operação é concluída.
O método Trim é semelhante ao método Fragment, mas difere das seguintes maneiras:
As formas produzidas pelo método Trim coincidem com os caminhos distintos das formas selecionadas, levando a sobreposição em conta.
As formas produzidas pelo método Fragment coincidem com as regiões distintas das formas selecionadas, também levando a sobreposição em conta.
Exemplo
Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar o método Trim para cortar formas selecionadas em formas menores ao longo de suas intersecções.
Public Sub Trim_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim shapeCount As Integer
'Draw two shapes that intersect
Set vsoShape1 = ActivePage.DrawRectangle(1, 4, 4, 1)
Set vsoShape2 = ActivePage.DrawOval(2, 6, 3, 2)
'Deselect the oval and then select both of the new shapes on the page
ActiveWindow.DeselectAll
ActiveWindow.SelectAll
'Create a selection object and assign the selected shapes to it
Dim vsoSelection As Visio.Selection
Set vsoSelection = ActiveWindow.Selection
'Trim the selected shapes
vsoSelection.Trim
'Move one of the newly created shapes
ActiveWindow.DeselectAll
shapeCount = ActivePage.Shapes.Count
Set vsoShape1 = ActivePage.Shapes(shapeCount - 2)
ActiveWindow.Select vsoShape1, visSelect
ActiveWindow.Selection.Move 2, 2
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.