通过

Selection.Trim 方法 (Visio)

  • 项目

将选定的形状修剪为更小的形状。

语法

expression。 Trim

表达 一个代表 Selection 对象的变量。

返回值

Nothing

注解

调用 Trim 方法等效于在 Microsoft Visio 用户界面中单击“修剪”（单击“开发工具”选项卡上的“形状设计”组中的“操作”）。

新形状继承第一个选定形状的格式，没有文本，并且是容器中最顶层的形状-_n_th形状、_n_th - 1 个形状、_n_th - 2 个形状等，其中 n = 计数。 该操作完成后，原始形状将被删除，而且不会选中任何形状。

Trim 方法类似于 Fragment 方法，但在以下几方面有所不同：

  • Trim 方法生成的形状与选定形状的不同路径相符，会考虑重叠的情况。

  • Fragment 方法生成的形状与选定形状的不同区域相符，也会考虑重叠的情况。

示例

此 Microsoft Visual Basic for Applications (VBA) 宏说明了如何使用 Trim 方法沿其交叉处将选定形状修剪为较小的形状。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。