Compartir a través de

Método Selection.Trim (Visio)

  • Artículo

Recorta las formas seleccionadas en formas más pequeñas.

Sintaxis

expresión. Trim

Expresión Variable que representa un objeto Selection .

Valor devuelto

Nothing

Comentarios

Llamar al método Trim equivale a hacer clic en Recortar en la interfaz de usuario de Microsoft Visio (haga clic en Operaciones en el grupo Diseño de formas en la ficha Programador.

Las nuevas formas heredan el formato de la primera forma seleccionada, no tienen texto y son las formas más arriba de su contenedor: la forma _n_th, _n_th - 1 forma, _n_th - 2 forma, etc. en la colección Shapes de su forma contenedora, donde n = count. Las formas originales se eliminan y no hay ninguna forma seleccionada cuando termina la operación.

El método Trim es similar al método Fragment, pero difiere en los siguientes puntos:

  • Las formas generadas por el método Trim coinciden con las distintas rutas de las formas seleccionadas, teniendo en cuenta la superposición.

  • Las formas generadas por el método Fragment coinciden con las distintas regiones de las formas seleccionadas, teniendo también en cuenta la superposición.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método Trim para recortar las formas seleccionadas en formas más pequeñas a lo largo de sus intersecciones.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.