返回介绍

BeginConnectedShape 属性

发布于 2019-10-04 14:08:48 字数 770 浏览 865 评论 0 收藏 0

返回一个Shape 对象,该对象代表指定连接符的起点所连到的形状。只读。

注意如果指定的连接符起点并未连接到形状上,则该属性产生一个错误。

示例

本示例假定活动演示文稿的第一张幻灯片已经包含两个形状,且通过连接符“Conn1To2”相连。而示例中的代码会向第一张幻灯片中添加一个矩形框和一个连接符。这个新建的连接符起点将连接到与“Conn1To2”的起点相同的地方。终点则连接到新建的矩形框的第一个连接点上。

Set myDocument = ActivePresentation.Slides(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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文