Compartilhar via

Método Selection.Trim (Visio)

  • Artigo

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.