BeginConnectedShape 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

BeginConnectedShape 属性

发布于 2019-08-07 字数 967 浏览 1081 评论 0

返回 Shape 对象,该对象代表连接在指定的连接符的起点上的形状。只读。


注意如果指定的连接符的起点并未连接到任何形状上,那么本属性将产生错误。


示例


本示例假定在 myDocument 上,有两个用连接符“Conn1To2”连接起来的形状。本示例的代码将向 myDocument 添加一个矩形和一个连接符。新添加的连接符的起点将连接到“Conn1To2”的起点所连接的同一连接站点上,而新添加的连接符的终点则连接到新添加的矩形的第一个连接站点上。


Set myDocument = Worksheets(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = _
"Conn1To3"
With .Item("Conn1To2").ConnectorFormat
beginConnSite1 = .BeginConnectionSite
Set beginConnShape1 = .BeginConnectedShape
End With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect beginConnShape1, beginConnSite1
.EndConnect r3, 1
End With
End With

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!