通过

ConnectorFormat 对象 (发布服务器)

  • 项目

包含应用于连接符的属性和方法。 连接符是连到两个其他形状的连接位置的线条。 如果重新排列已连接的形状，那么连接符的几何形状将自动调整，以使重新排列的形状仍保持连接。

备注

使用 ConnectorFormat 属性的 形状 对象或 ShapeRange 返回一个 ConnectorFormat 对象的集合。

使用 BeginConnect 和 EndConnect 要将连接线的端点附加到出版物中的其他形状的 ConnectorFormat 对象的方法。

使用 RerouteConnectionsShape 对象和 ShapeRange 集合，以自动查找连接器连接两个形状之间的最短路径的方法。

使用 Connector 属性可确定形状是否为连接线。

注意

请注意，虽然向 Shapes 集合添加连接符时，对其设置了大小和位置，但将连接符的起点和终点连接到其他形状时，连接符的大小和位置将会自动调整。 因此，如果打算将连接符附加到其他形状，则指定的初始大小和位置不相关。 同样，您指定要将连接符连接到当连接符，形状上的连接结点，但连接后用 RerouteConnections 方法可能会更改连接符，使原来选择的连接的站点不相关的连接结点。

示例

以下示例将两个矩形添加到活动出版物，然后使用曲线连接线连接它们。

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.RerouteConnections 
End With

方法

属性

另请参阅

支持和反馈

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