通过

Selection.ConnectShapes 方法 (Visio)

  • 项目

将两个或多个选定的形状与动态连接线连接在一起。 不返回 任何内容 。

语法

expression。 ConnectShapes

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

返回值

无

示例

此 Microsoft Visual Basic for Applications (VBA) 宏说明如何使用 ConnectShapes 方法来连接两个形状。

Public Sub ConnectShapes_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(2, 9, 4, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(5, 6, 7, 3) 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 Application.ActiveWindow.Selection.ConnectShapes 
 
End Sub

支持和反馈

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