通过

Shape.AutoConnect 方法 (Visio)

自动在绘图页上的两个形状之间沿指定方向绘制一个连接。

语法

expression. AutoConnect( _ToShape_ , _PlacementDir_ , _Connector_ )

表达 返回 Shape 对象的表达式。

参数

名称 必需/可选 数据类型 说明
ToShape 必需 [IVSHAPE] 要向其绘制连接的目标形状。
PlacementDir 必需 VisAutoConnectDir 绘制连接的方向。 有关可能值，请参阅“注解”。
Connector 可选 [未知] 要使用的连接线。

返回值

Nothing

注解

AutoConnect 方法允许在指定连接方向（还可以选择指定连接线）时自动在绘图页上的形状间绘制连接。

为 ToShape 参数传递为其绘制连接的目标 Shape 对象。

对于 PlacementDir 参数，传递 VisAutoConnectDir 枚举中的值以指定连接方向;也就是说，在何处找到与主形状相关的连接形状。 PlacementDir 的可能值如下所示。

常量 值 说明
visAutoConnectDirDown 2 向下连接。
visAutoConnectDirLeft 3 向左连接。
visAutoConnectDirNone 0 在不重定位形状的情况下进行连接。
visAutoConnectDirRight 4 向右连接。
visAutoConnectDirUp 1 向上连接。

如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 参考，则此方法映射到以下类型：

  • Microsoft.Office.Interop.Visio.IVShape.AutoConnect (Microsoft.Office.Interop.Visio.Shape，Microsoft.Office.Interop.Visio.VisAutoConnectDir，对象)

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 AutoConnect 方法在两个流程图形状（一个判定形状和一个进程形状）之间使用第三个形状（动态连接线）绘制连接，将从“基本流程图形状(美制单位)”模具中向空绘图页添加所有这些形状。

由于该示例对判定形状调用该方法，因此 Visio 将从判定形状向进程形状绘制连接线。 由于为该方法传递的是 PlacementDir 参数的枚举值 visAutoConnectDirRight，因此不管进程形状以前位于何处，Visio 都会将进程形状自动放置在绘图页上判定形状的右侧。

Public Sub AutoConnect_Example() 
 
    Dim vsoShape1 As Visio.Shape 
    Dim vsoShape2 As Visio.Shape 
    Dim vsoConnectorShape As Visio.Shape 
 
    Set vsoShape1 = Visio.ActivePage.Shapes("Decision") 
    Set vsoShape2 = Visio.ActivePage.Shapes("Process") 
    Set vsoConnectorShape = Visio.ActivePage.Shapes("Dynamic connector") 
 
    vsoShape1.AutoConnect vsoShape2, visAutoConnectDirRight, vsoConnectorShape 
 
End Sub

支持和反馈

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

  • Last updated on